Apple Lisa Computer Technical Information 



Lisa Boot ROM Listing 




This is the listing of the Lisa's Boot ROM program, version 2.48 (a.k.a. version H) . This 
program was written in 68000 assembly language. This listing was produced by the Lisa 68000 
TLA Assembler. At the end of this docioment appears the hex bytes that this listing produces 
with some commentary. 
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LL II SS AA AA 

LL II SSSSSSS AAAAAAA 
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RERRRR 00000 
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Copyright 1983, 1984 Apple Computer Inc. 
Revision 2H 



Filename: RMXXX . Y . TEXT , 



XXX 


= 


RCM VERSION # (e.g. , 


200 


for 


2.00) 


Y 


= 


E 
K 

S 

B 
M 


(equates) 
(kernel tests) 
(secondary tests) 
(bootstrap code) 
(monitor code) 










= 


G 


(graphics, icon and message 


display) 



E\jnction: Initializes LISA system for use and performs preliminary 
diagnostic checks. If all tests pass, the system then 
does a keyboard scan to check for user input. If any key 
is hit other than caps lock or the mouse button, 
a menu is displayed on the screen showing the available 
boot devices. If a valid CC»1MAND key sequence is detected, 
a boot from an alternate device is atteiipted (see below) . 
If no keyboard input is detected, the system first checks 
parameter memory for a valid boot device and, if none, defaults 
to booting from a Profile attached to the builtin parallel port 
for Lisa 1 systems. 

For Lisa 2 systems, a check is first made to verify a disk 
(internal or external) is connected before defaulting to the 
hard disk boot. If no disk is detected, the system defaults 



Computer Boot ROM 2.48 Listing • 2 of 265 



00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 



Inputs : 



to booting from the floppy drive. 



Checks for keyboard input from the user. Currently, the following 
key sequences are honored if input after the system "clicks" the 
speaker (CMD refers to the Apple key on the keyboard) : 



CMD/1 
CMD/2 
CMD/3 
CMD/4 
CMD/5 
CMD/6 
CMD/7 
CMD/8 
CMD/9 



boot from Twiggy drive #1 or integral hard disk 

boot from Twiggy drive #2 or SONY drive 

boot from Profile attached to parallel port or integral hard disk 

boot from I/O slot #1, port 1 

port 2 

port 1 

port 2 

port 1 

port 2 



boot from I/O slot #1, 
boot from I/O slot #2, 
boot from I/O slot #2, 
boot from I/O slot #3, 
boot from I/O slot #3, 



CMD /ENTER (on key pad) - abort boot, branch to RCM monitor 
CMD/SHIFT/P - abort boot, do power cycling 

OUTPUTS: Saves various results and contents of system registers in memory 
for examination by system programs or with the ROM monitor. 



$180-183 

$184-185 

$186-1A5 

$1A6-1A9 

$1AA-1AB 

$1AC-1AF 

$1B0-1B1 

$1B2 

$1B3 

$1B4-1B9 

$1BA-1BF 

$1C0-1DF 

$1E0-1FF 

$240-260 

$260-267 

$268-26B 

$26C-26F 

$270-273 

$274-277 

$278-27B 

$27C 

$27D 

$27E-280 

$280-293 



Power-up status (xOOOOOOO = ok) 
Memory sizing error results 
Results of memory read/write tests 

Parity error memory address (if error during mem test) 
Memory error address latch 
D7 save on exception errors 
Results of MMU tests (context/data bits) 
Keyboard ID (00 = no ID received) 
Boot device ID 
Boot failure data 
Clock setting (Ey,dd,dh,hm,ms,st) 
Data reg save area (DO - D7) 
Address reg save area (AO - A7 , A7 = USP) 
System serial # 
Scratch area 

Suspected (logical) memory error address for parity error 
Save of data written to suspected error address 
Actual (logical) error address found during search 
Save of data read during parity error search 
(Physical) error address read from parity error address latch 
Error row for parity chip failure (0 = first row, 7 = last row) 
Error colvimn for parity chip failure (9 or 14) 
Reserved 
Exception data save area 
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Originator : 
Modified by: 



(FC/EXCADR/IR/SR/PC/EXCTYPE/SSP) 

44 = NMI or other interrupt 

45 = bus error 

46 = address error 

47 = other exception/interrupt 

48 = illegal instruction error 

49 = line 1010 or 1111 trap 

50 = bus error accessing keyboard VIA 

51 = bus error accessing parallel port VIA 
57 = bus error accessing disk controller 

$294-297 : Maxiimmi physical memory address + 1 

$298-299 : I/O slot 1 card id (0 = no card present) 

$29A-29B : I/O slot 2 card id 

$29C-29D : I/O slot 3 card id 

$29E : Reserved 

$29F : Reserved 

$2A0 : Reserved 

$2A1 : Disk ROM id 

$2A2-2A3 : Reserved 

$2A4-2A7 : Minimum physical address 

$2A8-2AB : Total memory (Max-Min) 

$2AC : sec test results 

$2AD : Slot # of memory board if memory error 

$2AE : Result of disk controller self-test 

$2AF : System type (0 = Lisa 1, 1 = Lisa 2, 2 = Lisa 2 with external hard disk, 

3 = Lisa 2 with internal hard disk) 
$2B0-2BF : Keyboard queue (16 bytes) 
$2C0-480 : ROM scratchpad/stack area 
$480-800 : Reserved for RCM local variable usage 

Also saves data in special parameter memory area reserved for boot BCM use if error 
encountered. Osage is as follows: 

$FCC161 : Error code 

$FCC163-165 : Contents of memory error address latch if parity error 

$FCC167 : Memory board slot # if memory error 

$FCC169-173 : Last value read from clock 

$FCC175-17B : Reserved 

$FCC17D-17F : Checksvim 

Rich Castro 7/30/81 - Version . released to manufacturing 
Rich Castro 7/30 - 11/3/81 - Made the following changes: 

1) Twiggy bootstrap capability 

2) Initial COPS test and keyboard scan 

3) Moved parallel card to slot 2 

4) Changed ROM interrupt/exception vectors, 

5) Created jimp table for ROM routines 
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11/3/81 - Version . 7 released to the world 

11/4/81 - 1/15/82 - Made the following changes: 

1) Added support for new memory cards 

2) Added warm-start capability and juitf) 
table for RCM subroutine usage 

3) Modified MMU reset routine to support 
single step board usage 

4) Added full memory initialization 

5) Added 256K memory parity test 

6) Modified COPS initialization so that 
keyboard commands can be sensed more 
reliably 

7) Added error code display routines and 
display of CPU and 10 RCM versions 

8) Added preliminary disk controller test 

9) l^>dated warm- start check 

10) Modified disk interface test 

11) Changed low memory assignments 

12) Made corrections for no I/O board, disk 
interface error and contrast setting 

13) Modified memory sizing routine to 
catch memory errors 

14) Modify MMU test to avoid context 
destruction, add contrast setting for 
new machines, correct disk error and 
CPU RCM messages 

15) Move stack so old memory test still runs 



1/15/82 
1/18/82 
1/19/82 

1/27/82 

1/28/82 
1/30/82 
1/31/82 
2/6/82 

2/15/82 



2/17/82 



Release version 0.16 

Fix stack problem and release vrsn . 17 

Change stack for call routine and version 

to 0.18 

Change MMU error routine to do address 

and data line toggling 

Add video circuitry test 

Add write wrong parity test 

Move run time stack to $180 

Add Profile bootstrap with upgrade for 

OS use (add juitp table entries also) 

l^>date Twiggy bootstrap and add entry 

for OS use; also add MMU test to 

conditional assembly and add context 

saving to MMUTST2 routine 

Add correction to memory test for 

reboot problem and leave parity on 
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2/24/82 - Add code for clock test and special 

burn- in cycling 
2/25/82 - Add code to simulate soft on switch 

pressed for COPS problem 
3/1/82 - Removed all changes since ROM 0.18 

release except for parity enabling, 

no reset feature, memory sizing change 

and Profile booting 
3/1/82 - Restore default stack ptr loc to $300 
3/1/82 - Move default stack to $0400, restore 

everything except MMU testing 
3/4/82 - Add MMU initialization and modify 

Twiggy, Profile boot routines for new 

load point 
3/10/82 - Add change for new I/O addresses and 

fix for Twiggy routine 
3/10/82 - Change contrast value for new I/O's 
3/15/82 - Add correction for Profile and COPS 

routines and display msg when booting 
3/17/82 - Restore version # at end of file 
3/18/82 - Release version 0.22 

4/5/82 - Make initial 2732 version (1.00); add 
following changes: 

1) correct MMU error routine bug 

2) change stack for CALL to $0400 

3) add parity disable to WWP routine 

4) change MMU I/O space code to '9' 

5) add invalid boot code message 
4/6/82 - Add speaker click after COPS check 
4/7/82 - Add jiamp table entry for speaker 

routine, 1 second delay before "click" 
and alpha lock key check 

4/8/82 - Release version 1.00 

5/5/82 - Add I/O slot configuration check and 
I/O slot booting. Also add change to 
Profile read routine for PCR setting. 

5/12/82 - Add burnin power-cycling routine as 
boot option invoked by CMD/P. 

5/13/82 - Add changes for COPS command timing. 
Twiggy timeout. Twiggy booting, and 
add power-cycling routine. 

5/14/82 - Add fixes for booting via parameter 
memory and COPS timing experiment. 

5/17/82 - Add display of loop count and run time. 
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5/18/82 
5/20/82 

5/21/82 
5/26/82 
6/1/82 



6/1/82 

6/3/82 
6/3/82 



6/7/82 
6/10/82 



6/11/82 



and alter parameter memory useage for 

power-cycling option. 

Add display of Twiggy errors, change 

COPS routine for precheck code. 

Add contrast reset for "warm start" , 

add cycle value display, restore COPS 

timeout code. 

Release version 1 . 02 

Begin addition of ROM monitor; set 
default to i^ple if PM = 00. 
Make following changes: 

1) Memory sizing retry count to 64 

2) Save results on memory sizing errors 

3) Update NMI routine to check for parity 
errors . 

4) Restore default NMI vector after 
memory test. 

5) Create read clock subroutine and call 
when doing clock display. 

6) Add boot fix to save device id. 
Change to new sizing algorithm and retry 
coiint back to 32 . 

Convert to version 1 . 03 
Made following changes: 
1) Localize message display to TSTCHK 
2) Do clear screen only in INITVCT and 
in TSTCHK and second monitor level. 
3) Change default video page to last. 
4) Complete first edition of monitor. 
Modify monitor level2 user interface. 
Made following changes: 
l)Add boot from i^ple as CMD/A. 
2) Clear screen and display only in 

routine TSTCHK. 
3) Add ROM checksiom error bit. 
4) Add exception error check to TSTCHK. 
5) Add speaker click just before 

keyboard scan. 
6) Reset to first video page for boot 

from fippl&. 
7) Merge in changes from 1.03 file. 
8) Add parity error check to TSTCHK 
9) Change power-cycling so that doiable 
bus fault used to restart diags 
Made following changes: 
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6/14/82 
6/22/82 



6/30/82 



7/1/82 



7/7/82 



7/13/82 
7/14/82 

7/15/82 



1) Increase Twiggy timeout to 2 itiins. 
2) Add 5 sec delay in power-cycle mode 
before shutting down. 

Release version 1 . 04 
Add loop after COPS test if error 
since keyboard not accessible. Also add 
fix for NMI restore after memory test. 
Made following changes: 
l)Add parameter memory and I/O boot 

checksum routines . 
2) Remove boot id save to parameter 

memory, except for power-cycle. 
3) Change to new boot device id's. 
l)Add changes for new Twiggy firmware. 
2) Add fixes for bugs in 1.04: 
a) Add row setting before error display 

to avoid writing over menu line. 
b) Set device codes for Profile and 

I/O slots to allow display if error, 
c) Enable setting of timeout for Twiggy 

reads . 
d) Save error codes for I/O boot in 

memory. 
e)Add option of clearing memory in 
INITMON routine. 
Made following changes: 
1) Modify checksum routines 
2) Add keyboard/mouse check/ reset code 
Add speed parameter for new Twiggy code 
Add check for DSKDIAG in disk test, 
change to new Twiggy error codes 
Made following changes: 
l)Add Profile routine updates. 
2) Restore old boot id codes - new ones 
used only when new Twiggy code 
released. 
3) Upgrade burnin code for new parameter 

memory usage. 
4) Attempt to enable keyboard after MMU 

errors . 
5) Remove I/O boot checksvim code until 

conversion to new Twiggy code. 
6) Add video pattern display code. . 
7) Remove characters from table and 
make other changes to save bytes. 
8) Upgrade service mode display option 
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to handle count up to $FFFF. 

7/16/82 - Create version 1.05 

7/19/82 - Add bug fixes for MMU testing, power- 
cycle memory testing, Profile boot 
and service mode display option. 

7/19/82 - Create version 1.06 
7/20/82 - Add fix for MMU testing to properly 
record context in error 

7/20/82 - Release version 1.07 

7/21/82 - Make keyboard/mouse reset code changes 

and move check to before first "click" 
7/23/82 - Add extended memory tests 
7/27/82 - Add screen memory test and VIA tests. 

Change default boot for new Twiggy code 

to upper Twiggy. Add conditionals for 

i^ple code. 
7/29/82 - Add SCC test, optimize code. 
7/30/82 - Add RAM address uniqueness test. 
8/4/82 - Added the following: 

1) Twiggy mods for interleave 
2) Monitor options CONTINUE and L(X)P 
3) Exception routine for line 1111 and 
line 1010 errors . 
8/9/82 - Add Twiggy mod for disk clanp, add mods 

for kernel test failures such as screen 

flash on MMU error. 
8/11/82 - Add memory sizing fix, increase delay 

for COPS and change default boot to 

TWIGGY ! ! 
8/12/82 - Begin code changes for new user interface 

and add hooks for icon display. 
8/14/82 - Add mods for Twiggy changes to monitor 

DSKDIAG line and add initial timeout. 

Continue user interface changes . 
8/18/82 - Add mouse, cursor code and changes for 
8/23/82 - Add controls for 2716 version of ROM. 

Add changes for Service mode to use 

pull down menu, eliminate keyboard 

queuing while awaiting input. 
8/24/82 - Add dialog box, and window to service 

mode with modified scroll and character 

output routines . 
8/25/82 - Add icons along with routines to display 

during test and for errors . 
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8/27/82 

8/30/82 
8/31/82 



8/31/82 

9/8/82 
9/9/82 

9/10/82 

9/10/82 

9/13/82 

9/14/82 
9/22/82 



9/23/82 



9/24/82 
9/25/82 

9/29/82 
9/30/82 



Add routines for displaying and using 

boot icon menu. 

Add auto boot from J^>plenet. 

Add minor additions to Service mode 

for Set and Loop options. 

Create and do internal release of 

2716 (0.24), 2732 (1.15) and 2764 (2.00) 

ROM versions. 

Add fixes for I/O slot icon display 

and Profile icon display. 

Add fix for reboot problem in 2716 ROM. 

Add serial # read routine and test for 

2732 and 2764 ROM versions. Expand 

stack for serial read routine. 

Add fix for device code display for ROM 

versions . 24 and 1 . 15 . 

Create and do internal release of new 
ROM versions 0.25, 1.16 and 2.01. 

Add fixes for memory sizing and I/O 
slot booting. 

Create and release ROM versions 0.26, 
1.17 and 2.02. 
Add fixes and code for: 
1) Default video latch setting 
2) Mask for I/O and exception errors 
3) Message display on external calls 

to ROM monitor 
4) Contrast setting before screen test 
5) Disable of NMI key on power-up 
6) Boot failure after first load 
7) Error tones for failures 
8) Loop mode setting of NMI key 
Add 
1) Power cycling 
2) Full service mode menu 
3) Loop mode test choice display 
Add dioirp memory option to service mode 
Modify display memory option to allow 
count and address data on same line 
Add jioirp table entry for READMMD 
Add: 
1) "No reset" feature 
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10/5/82 



10/6/82 



10/7/82 



10/9/82 - 
10/10/82 



2) Verify Disk option for service mode 
3) Optimize cursor routines and 

remove unused CursorShield routine. 
4) Invert rectangles when selected from 

keyboard. 
5) Display boot menu only if down keycode 

detected. 
Add: 
1) Memory error decoding to board level 
2) New size and position for alert box 
3) New test icon display 
4) Diskette # for Twiggy errors 
Add: 
1) Continue keyboard scan after COPS 

errors 
2) Set extended memory test bit for 

loop on memory test option 
3) Display I/O slot card # on errors 
4) Change boot menu to "pull-down" format 
5) Change to new icons 
Add: 
1)SCC test 

2) Error if no serial # (allow continue) 
3) Two passes of memory tests for extended 

mode, one for regular mode 
Create version 2 . 03 
- Add bug fixes and I/O slot RCM check in 
config scan. 



10/12/82 - Create and release version 2.04. 



10/13/82 



10/14/82 
10/18/82 

10/20/82 
10/21/82 



10/22/82 



Make following changes: 

l)Add keyboard reset code 

2) Remove SCC test 

3) Add bug fixes for making alert box 
and displaying bad keyboard 
Add display of check marks for test icons 
Add fixes for Monitor entry, Profile boot, 
looping on diag tests 
Add message translations 
1) Adjust alert box and button dimensions 
2) Add boot from all ports on I/O slots 
3) Add fix for CMD key detection in monitor 
4) Change powercycle window to alert box 
5) Extend verify timeout to 4 minutes 
l)Add keyboard reset on external entry to ROM 
monitor 
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2) Make Dunp ^femory routine conditional on 
final LISA ROM 
10/25/82 - 1) Change wait for disk error to brancdi to 
monitor - CONTINUE option then continues 
with the same boot device 
2) Change RETRY phrase to RESTART 
10/27/82 - Made following changes: 

1) RESET instruction on startup 

2) Jump table entries for access to memory 

test and display decimal routines 
3) Optimize warm start reset check and 

MMU error loop routines 
4) Change default video page to $2F for 

no memory found. 
5) Rewrite screen memory test. Change main 
memory test to go from low memory 
to base of screen memory. 
6) Move inverse video check to after screen 
test, doing rewrite only of screen page. 
7) Add new boot failure code, with hooks to 
catch booting errors after ROM has 
released control to boot loader for Twiggy 
and Profile booting. 
10/29/82 - Add display for uncompressed slot card icons. 

Modify TONE routine to init PCR reg. 
11/1/82 - Change external entry to monitor interface 

so that error code displayed on same line as 
message if no icon displayed 
11/3/82 - Made following changes: 

l)Move creation of test icon display till 
after keyboard reset so translation can 
be done if necessary 
2) Do cursor, mouse init only once so 

cursor posn not reset 
3) Optimize mouse, cursor routines 
4) Correct COPSCMD routine 
5) Upgrade check for Profile routine and 
optimize Profile read code 
11/8/82 - Conditionally add check for keyboard connected 

routine . 
11/9/82 - Create version 2.07 
11/11/82 - Modify ROM checksiam algorithm 
11/12/82 - Add diskette eject on power-off 
11/13/82 - 1) Remove Dvimp Memory /Verify Disk from Service 
mode menu 
2) Add speaker beep and specific read/ write 
loop for memory sizing and lo mem errors 
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11/15/82 
11/16/82 



11/18/82 

11/19/82 
11/19/82 
12/15/82 

12/16/82 



l)Add keyboard/mouse disconnect check 

2) Remove memory "clear" from sizing test - no« 

done after memory testing 
1) Change power-cycle invoking to CMD/SHIFT/P 

key sequence. 
2) Change customer monitor mode invoking to 

CMD /ENTER (on key pad) key sequence. 
3) Add wait for profile loop in boot menu 

display routine 
4) Add timeout to general wait for clock 

input routine 
5) Increase delay for poweroff wait loop 
6) Optimize character display routine 
l)Add save of error code to special parameter 

memory area for use during bumin. 
2) Add context check for MMU testing 
3) Create version 2.08 for internal release 
1) Change initial position of cursor to center 

of screen. 



12/18/82 
1/3/83 
1/7/83 

1/11/83 
1/12/83 



Release versions 2 . 08 (internal) 
2.09 (for manufacturing) 



and 



Add: 

1) Setting of VIA PCR reg for later use 

2) Reset of keyboard before boot 

3) Fix for slot 3 card check for boot menu 

Add: 

l)Move Profile cmd buffer to location $304 

2) Change default boot device to Profile 

3) Remove support for third boot port on 

each slot 
4) Expand id range for test card search 
5) Don't display Restart button after boot 

error 
6) New icons 
Fix memory test bug 

Fix bug in reporting parity circuitry 
failure . Change version to 2.10. 
Make following changes: 
1) Change keyboard sequences for I/O slot 

booting 
2) Extend timeout for inital Profile check 
Change SCC test to use max baud rate for 
loopback test 
Add nonning of expansion card status routines 
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00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 



1/18/83 



1/21/83 
1/28/83 
3/15/83 
4/20/83 



4/22/83 



4/26/83 
4/27/83 
5/9/83 



5/10/83 

5/12/83 
8/8/83 



when configuration check is done 

Add fixes for: 

1) Continuing after memory error 

2) Checking for no reset function 

4) Read of I/O slot RCM for icon data -le 2 meg 

ensure odd address for icon count 
5) Default boot setting when loop on memory 

test selected 
Add save of disk controller self-test status 

Create and release RCM version 2.11 

Extend Profile timeout for case where drive 
may be parking head, (bug RM016) 
Add fixes for: 

1) Memory sizing (bug BM015) . 

2) Garbage sent out serial port (RM014) . 

3) Removed 6504 (bug RM013) . 

4)Never ready Profile (bug RMOll) . 
Also do some code optimization in icon 
routines to make room for fixes. (RMOOO) 
Do code optimization for setting bus error 
vector (labeled as RMOOO) . 
Add changes for following requests: 

l)Display ROM id's on bootup (CHGOOl) 

2) Loop on address lMeg-2 if sizing error (CHG002) 

3) Turn off contrast before doing poweroff (CHG003) 

4) Change copyright notice. (CHG005) 

Also modify alert msg display routine (CHG005) . 
Add loop on CPU diags if no memory or I/O 
board installed. Also toggle LED. (CHG004) 
Do only basic memory test on warm-start. (CHG006) 
Add fix for NMI bug (RMOIO) . 
Made following changes: 

1) Change ROM id display to rev # (D) (CHGOOl) 

2) Change ROM test failure to loop at fixed address 
$00FE00C8 (end of juitp table) (CHG007) 

3) Make correction for screen not cleared when 
continuing from I/O slot error to boot menu. 
(CHG008) 
Add change to enable display of uncoitpressed icons 
upon external entry to ROM Monitor (CHG008) . 

Create and release rev D of boot ROM. 



Add changes for Pepsi system: 
1) New icons. 



(CHG009) 
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00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 



2 ) Display of icons with id # ' s . 
8/9/83 - Add save of disk ROM id in low memory. (CHGOIO) 
Add fixes for: 

1) sec init for i^jplebus. (CHGOll) 

2) Test card boot search. (010012) 
8/10/83 - Delete inverse video check. (CHG013) 

Add fix to beep routine. (CHG014) 
8/16/83 - Delete memory address and ping pong routines, 

add routines to decode parity error to 

chip. (CHG015) 
9/1/83 - Add retry for hard disk booting. (CHG016) 

Add jimp table entry for write to 

parameter memory routine. (CHG017) 
9/2/83 - Add new font, modify display routines. (CHGOIS) 

Add wait for hard disk ready when 

power-cycling. (CHG019) 
9/6/83 - Add setting of video latch whenever boot 

error causes jump to ROM low memory default 

vectors. (CHG020) 

Add fix for memory test/initialization 

bug. (CHG021) 
9/7/83 - Add read of disk controller ROM self-test 

results. (CHG022) 

Add skip of disk eject on power-off if any 

disk controller errors occurred. (CHG023) 

9/8/83 - Release for testing (rev 3B) with Pepsi systems . 

10/10/83 - l)Make Pepsi icon changes. (CHG024) 

2) Add fix for proper setting of carry bit 

on floppy or hard disk boots. (CHG025) 
3) Add fix for video reset on boot from not ready 
Profile. (CHG026) 
10/12/83 - Add change to reset SCC for i^plebus before 

doing memory test. (CHG027) 
10/20/83 - Add fix for service mode bus error problem. (CHG028) 



10/20/83 - Release as rev E for Lisa and Pepsi systems . 

12/15/83 - l)Add new code to determine system type. (CHG029) 
2) Change default boot device for Lisa 2 

system if no hard disk connected. (CHG030) 
3) Extend timeout for hard disk ready. (CHG031) 
4) Add bug fix for wrong icon display on Lisa 2. 

(CHG032) 
5) Add bug fix for menu display when mouse or 
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00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
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00001 
00001 
00001 
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00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 



keyboard not connected. (CHG033) 
6) Remove save of error code in parameter memory. 
(CHG034) 
12/16/83 - Release as rev 'X' for testing 

12/21/83 - Release as official rev 'F' for all systems 

1/25/84 - l)Add code to properly initialize Profile-reset 

and parity-reset lines for Profile booting (CHG036) 

2/7/84 - 1) Extend hard disk default read timeout to 16 
seconds for Widget systems. (CHG037) 
2) Add delay after hard disk reset for Widget 
systems. (CHG038) 

2/8/84 - Release as rev G for testing 

2/24/84 - Release as official rev H 



.PAGE 
Macro definitions 



.MACRO 


BSR6 


LEA 


@1,A6 


BRA 


%1 



@1 



.ENDM 



.MACRO 


BSRS6 


LEA 


@1,A6 


BRA.S 


%1 



@1 



.ENDM 



.MACRO 


RTS6 


JMP 


(A6) 


.ENDM 




.MACRO 


BSR4 


LEA 


@1,A4 


BRA 


%1 



@1 



.ENDM 

.MACRO 
LEA 



BSRS4 
@1,A4 
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00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 



@1 



@1 



@1 



BRA.S %1 

.ENDM 

.MACRO RTS4 

JMP (A4) 
.ENDM 

.MACRO BSR2 

LEA @1,A2 

BRA %1 

.ENDM 

.MACRO BSRS2 

LEA @1,A2 

BRA.S %1 

.ENDM 

.MACRO RTS2 

JMP (A2) 
.ENDM 

.MACRO DISABLE 

MOVE SR,-(SP) 

ORI #$0700, SR 
.ENDM 

.MACRO ENABLE 

MOVE (SP)+,SR 
.ENDM 

.PAGE 

Conditionals for assembly 



0000 0001 
0000 0001 
0000 0001 
0000 0001 
0000 0000 

0000 0001 

0000 0001 



DIAGS 

NEWLISA 

BURNIN 

NORESET 

EXTERNAL 

RCM16K 

NEWTWIG 



EQU 


1 


EQU 


1 


EQU 


1 


EQU 


1 


EQU 






.EQU 



.EQU 



/controls assembly of selected diags 

/controls extra code for new LISA'S 

/controls code for burnin cycling 

/controls code for reset feature 

/controls listing of externally 

/ callable routines only (w/ EQU's) 

/controls code to be added when 16K 

/ ROM's available 

/controls code for new Twiggy firmware 
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0000 






0000 


0000 


0000 


0000 


0000 


0001 


0000 


0000 


0000 


0000 


0000 


0001 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0001 


0000 






0000 


0000 


0001 


0000 


0000 


0000 


0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 


OOFE 


0000 


0000 


0000 


OOFE 


0000 


OOFC 


0000 


0000 


OOFC 


E800 


0000 


0000 


002F 


0000 






0000 


0000 


OOAF 


0000 






0000 






0000 


0000 


Olio 


0000 






0000 






0000 






0000 






0000 






0000 


0000 


005A 


0000 






0000 


0000 


OlOE 


0000 


0000 


OOEl 


0000 


0000 


0000 


0000 


0000 


005A 


0000 


0000 


00B4 


0000 


0000 


OlOE 


0000 


0000 


0168 


0000 


0000 


01C2 


0000 


0000 


021C 


0000 


0000 


0276 


0000 


0000 


0008 



FINLISA 




.EQU 





FINKBD 




.EQU 


1 


AAFL 




.EQU 





USERINT 




.EQU 


1 


DEBUG 




.EQU 





RCM4K 




.EQU 





RCM8K 




.EQU 





BMENO 




.EQU 


1 


FULLSCC 




.EQU 


1 


INVERTCK 




.EQU 







.IF 


EXTERNAL = 1 




.ENDC 








.PAGE 







; interface 

/controls code for final LISA'S 
/controls check for final keyboard 
/controls J^jple monitor code 
/controls code for new user interface 
/controls global equate allocation 
/controls code for 2716 version 
/controls code for 2732 version 
/controls format of boot menu 
/ 1 = pull down menu 
/controls code for SCC tests 
/controls code for inverse video check 



CHG013 



GENERAL EQUATES 



RCMBASE 
RCaiSLCT 
lOSPACE 
VIDLTCH 
DEFVID 



DEFVID2 . EQU $AF 

.IF DEBUG = 



EQU 


$OOFEOOOO 


EQU 


$OOFE 


EQU 


$OOFCOOOO 


EQU 


$00FCE800 


EQU 


$2F 



SCRNBASE 


.EQU 


$110 


.ELSE 






.ENDC 






.IF USERINT = 





.ELSE 






RBYTES 


.EQU 


90 


.ENDC 






TOPOFFSET 


.EQU 


270 


RLONGS 


.EQU 


225 


RO 


.EQU 





Rl 


.EQU 


RO+90 


R2 


.EQU 


Rl+90 


R3 


.EQU 


R2+90 


R4 


.EQU 


R3+90 


R5 


.EQU 


R4+90 


R6 


.EQU 


R5+90 


R7 


.EQU 


R6+90 


BUSVCTR 


.EQU 


$0008 



BASE ADDRESS FOR RCM 

MSB'S OF ROM ADDRESS 

START OF 10 SPACE 

VIDEO ADDRESS LATCH 

default setting for video latch 

(end of 512K board in slot 1) 
default video latch setting and LED on 



/ptr to base address for video page 



/BYTES FOR EACH DISPLAY ROW 

offset for first row from top of screen 

longs for each row 

ROW OFFSET 

ROW 1 OFFSET, ETC. 



/BUS EXCEPTION VECTOR 
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0000 


0000 


oooc 


0000 


0000 


0010 


0000 


0000 


0028 


0000 


0000 


002C 


0000 


0000 


007C 


0000 


0000 


0080 


0000 


0020 


0000 


0000 


0010 


0000 


0000 


0008 


0000 


0000 


0004 


0000 


0000 


0002 


0000 


0000 


0000 


0480 


0000 


0000 


0480 


0000 


OOFC 


E012 


0000 


OOFC 


EOlO 


0000 


AA55 


A55A 


0000 


0000 


A55A 


0000 


OOFC 


EOIE 


0000 


OOFC 


EOlC 


0000 


OOFC 


FOOO 


0000 


OOFC 


F801 


0000 


0000 


0000 


0000 


0000 


0001 


0000 


0000 


0002 


0000 


0000 


0004 


0000 


0000 


0005 


0000 


0000 


0006 


0000 


0000 


0020 


0000 


OOFC 


E018 


0000 


OOFC 


EOIA 


0000 


0008 


0000 


0000 


0002 


0000 


0000 


0001 


8000 


0000 


0000 


8000 


0000 


0000 


2000 


0000 


0000 


0800 


0000 


0000 


0800 


0000 


OOFC 


E006 


0000 


OOFC 


E004 


0000 


0003 


D090 


0000 


0007 


A120 


0000 


0013 


12D0 


0000 


0000 


F424 


0000 


0000 


61A8 


0000 


0006 


7C28 


0000 


0001 


E848 


0000 







ADRVCTR 

ILLVCTR 

LIOVCTR 

LllVCTR 

NMIVCT 

TRPVCTO 

MAXADR 

ONEMEG 

HALFMEG 

QTRMEG 

R0W2ADR 

STKBASE 

CALLBASE 

SETUP 

SETOPON 

PATRN 

PATRN2 

PARON 

PAROFF 

MEALTCH 

STATREG 

SFER 

PBIT 

VRBIT 

VIDBIT 

CSBIT 

INVIDBIT 

RETRYCNT 

VTIRDIS 

VTIRENB 

HEX512K 

HEX128K 

HEX96K 

HEX32K 

HEX8K 

HEX2K 

LCMEM 

DG20N 

DG20FF 

ONESEC 

TWOSEC 

FIVESEC 

QTRSEC 

TNTHSEC 

KBDDLY 

HALFSEC 



EQU 


$000C 


ADDRESS EXCEPTION VECTOR 


EQU 


$0010 


ILLEGAL INSTRUCTION VECTOR 


EQU 


$0028 


line 1010 trap 


EQU 


$002C 


line 1111 trap 


EQU 


$007C 


NMI VECTOR LOCATION 


EQU 


$0080 


TRAP VECTOR LOCATION 


EQU 


$00200000 


MAX RAM ADDRESS + 1 (2 meg) 


EQU 


$00100000 


1 meg in hex 


EQU 


$00080000 


1/2 meg 


EQU 


$00040000 


256K 


EQU 


$00020000 


128K - START OF 2ND MEMORY ROW 


EQU 


$0480 


DEFAULT BASE FOR STACK 


EQU 


$0480 


STACK BASE FOR USE BY CAT.T, ROUTINE 


EQU 


$00FCE012 


ADDRESS TO TURN SETUP BIT OFF 


EQU 


$00FCE010 


ADDRESS TO TURN SETUP ON 


EQU 


$AA55A55A 


PATTERN FOR MEMORY TESTING 


EQU 


$A55A 


PATTERN FOR MMU TEST 


EQU 


$00FCE01E 


PARITY ENABLE 


EQU 


$00FCE01C 


PARITY DISABLE 


EQU 


$OOFCFOOO 


MEMORY ERROR ADDRESS LATCH 


EQU 


$00FCF801 


ERROR STATUS REGISTER 


EQU 





SOFT ERROR BIT 


EQU 


1 


HARD ERROR (PARITY) BIT 


EQU 


2 


VR BIT LOCATION 


EQU 


4 


VID BIT 


EQU 


5 


CSYNC BIT 


EQU 


6 


INVERSE VIDEO BIT 


EQU 


32 


RETRY COUNT FOR MEMORY SIZING 


EQU 


$00FCE018 


VERTICAL RETRACE DISABLE 


EQU 


$00FCE01A 


VERTICAL RETRACE ENABLE 


EQU 


$80000 


512K in hex 


EQU 


$20000 


128K in hex 


EQU 


$18000 


96K in hex 


EQU 


$8000 


32K in hex 


EQU 


$2000 


8K in hex 


EQU 


$0800 


2K in hex 


EQU 


HEX2K 


amount of memory initially tested 


EQU 


$00FCE006 


WRITE WRONG PARITY ENABLE 


EQU 


$00FCE004 


WRITE WRONG PARITY DISABLE 


EQU 


$3D090 


1 second delay constant 


EQU 


0NESEC*2 


2 second delay 


EQU 


0NESEC*5 


5 second delay 


EQU 


ONESEC/4 


. 25 second delay 


EQU 


ONESEC/ 10 


. 1 second delay 


EQU 


<ONESEC*17>/10 


1 . 7 second delay 


EQU 


ONESEC/2 


0.5 second delay 
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0000 






0000 






0000 


0000 


0040 


0000 


0000 


8000 


0000 


FFFF 


8000 


0000 


0000 


0003 


0000 


0008 


0000 


0000 






0000 






0000 






0000 






0000 






0000 






0000 


OOFC 


DD81 


0000 


0000 


0000 


0000 


0000 


0002 


0000 


0000 


0004 


0000 


0000 


0006 


0000 


0000 


oooc 


0000 


0000 


OOOE 


0000 


0000 


0010 


0000 


0000 


0012 


0000 


0000 


0014 


0000 


0000 


0016 


0000 


0000 


0018 


0000 


0000 


OOIA 


0000 


0000 


OOIC 


0000 


0000 


OOIE 


0000 






0000 


0000 


0004 


0000 


OOFC 


D901 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0008 


0000 


0000 


0008 


0000 


0000 


0010 


0000 


0000 


0018 


0000 


0000 


0030 


0000 


0000 


0038 


0000 


0000 


0040 


0000 


0000 


0048 


0000 


0000 


0060 


0000 


0000 


0078 


0000 






0000 


0000 


0006 


0000 






0000 


OOFC 


DOIC 



Equates for memory parity error routine 



MSRCHSZ 




.EQU 


64 


VSRCHSZ 




.EQU 


32768 


VMSK 




.EQU 


$FFFF8000 


ADBMSK 




.EQU 


$03 


PHYTOLOG 




.EQU 


$80000 




.IF 


EXTERNAL = 1 




.ENDC 







;main memory error range CHG015 

;vicieo memory error range CHG015 

;mask for video errors CHG015 

;mask for error byte address CHG015 

/physical to logical address offset CHG015 



; Equates for VIA registers (offsets from $XXD181 or $XXD101) 



VIAIBASE 


.EQU 


$00FCDD81 


ORBl 


.EQU 


$0 


ORAl 


.EQU 


$2 


DDBBl 


.EQU 


$4 


DDRAl 


.EQU 


$6 


TlLLl 


.EQU 


$c 


TlLHl 


.EQU 


$E 


T2CL1 


.EQU 


$10 


T2CH1 


.EQU 


$12 


SHRl 


.EQU 


$14 


ACRl 


.EQU 


$16 


PCRl 


.EQU 


$18 


IFRl 


.EQU 


$1A 


lERl 


.EQU 


$1C 


PORTAl 


.EQU 


$1E 


FDIR 


.EQU 


4 


VTA?BASE 


.EQU 


$00FCD901 


0RB2 


.EQU 


$0 


IRB2 


.EQU 


$0 


0RA2 


.EQU 


$8 


IRA2 


.EQU 


$8 


DDBB2 


.EQU 


$10 


DDRA2 


.EQU 


$18 


TIT.T,? 


.EQU 


$30 


T1LH2 


.EQU 


$38 


T2CL2 


.EQU 


$40 


T2CH2 


.EQU 


$48 


PCR2 


.EQU 


$60 


P0RTA2 


.EQU 


$78 


DSKDIAG 


.EQU 


6 


CSTRB 


.EQU 


$00FCD01C 



6522 



BASE ADDRESS FOR COPS 

PORT B OUTPUT REG 

PORT A OUTPUT REG 

PORT B DATA DIRECTION REG 

PORT A DATA DIRECTION REG 

LOW ORDER Tl LATCH 

HIGH ORDER Tl LATCH 

LOW ORDER T2 COUNTER 

HIGH ORDER T2 COUNTER 

SHIFT REG 

AUXILIARY CONTROL REG 

PERIPHERAL CONTROL REG 

INTERRUPT FLAG REG 

INTRPT ENABLE REG 

PORT A WITH NO HANDSHAKE 

PORT B, BIT 4 HAS FDIR STATE 
BASE ADDRESS FOR OTHER 6522 
PORT B OUTPUT REG 
PORT B INPUT REG 

A OUTPUT REG 

A INPUT REG 
PORT B DATA DIRECTION REG 
PORT A DATA DIRECTION REG 
LOW ORDER Tl LATCH 
HIGH ORDER Tl LATCH 
LOW ORDER T2 COUNTER 
HIGH ORDER T2 COUNTER 
PERIPHERAL CONTROL REG 
PORT A WITH NO HANDSHAKE 

port B, bit 6 is disk alive indicator 

STROBE FOR CONTRAST LATCH 



PORT 
PORT 
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0000 






0000 


OOFC 


AOOl 


0000 


0000 


0000 


0000 


0000 


0002 


0000 


0000 


0004 


0000 


0000 


0006 


0000 






0000 






0000 






0000 


OOFC 


D241 


0000 


0000 


0002 


0000 


0000 


0004 


0000 


0000 


0000 


0000 


0000 


0002 


0000 






0000 






0000 






0000 






0000 


0000 


0000 


0000 


0000 


0001 


0000 


0000 


0002 


0000 


0000 


0003 


0000 


0000 


0004 


0000 


0000 


0005 


0000 


0000 


0006 


0000 


0000 


0007 


0000 


0000 


0008 


0000 


0000 


0009 


0000 






0000 


0000 


OOOA 


0000 


0000 


OOOB 


0000 


0000 


oooc 


0000 


0000 


OOOD 


0000 


0000 


OOOE 


0000 


0000 


OOOF 


0000 


0000 


0010 


0000 


0000 


0011 


0000 


0000 


0012 


0000 


0000 


0013 


0000 


0000 


0014 


0000 






0000 


0000 


0015 


0000 


0000 


0016 


0000 






0000 


0000 


0017 


0000 


0000 


0018 


0000 


0000 


0019 



Equates for PIA registers (offsets from $XXA001) (SLOT 2) 



PIABASE 


.EQU 


$00FCA001 


INDATA 


.EQU 


$0 


OUTDATA 


.EQU 


$2 


INCSR 


.EQU 


$4 


OUTCSR 


.EQU 


$6 



;BASE ADDRESS FOR PIA CRED IN SLOT 2 



Equates for SCC 



SCCBCTL 


.EQU 


$FCD241 


ACTL 


.EQU 


2 


SCCDATA 


.EQU 


4 


RXBF 


.EQU 





TXBE 


.EQU 
.PAGE 


2 




.IF USERINT = 







.ELSE 




MMU 


.EQU 





CPUSEL 


.EQU 


1 


VID 


.EQU 


2 


PAR 


.EQU 


3 


CPUINTR 


.EQU 


4 


BUSEXCP 


.EQU 


5 


ADREXCP 


.EQU 


6 


MISEXCP 


.EQU 


7 


IT.T.RXCP 


.EQU 


8 


TRPEXCP 


.EQU 


9 


VIAl 


.EQU 


10 


VTA? 


.EQU 


11 


lOCOPS 


.EQU 


12 


KBDCOPS 


.EQU 


13 


CLK 


.EQU 


14 


RS232A 


.EQU 


15 


RS232B 


.EQU 


16 


DISK 


.EQU 


17 


lOEXCP 


.EQU 


18 


I0C0PS2 


.EQU 


19 


lOKBD 


.EQU 


20 


MEM 


.EQU 


21 


MPAR 


.EQU 


22 


KBDOUT 


.EQU 


23 


MOUSOUT 


.EQU 


24 


lOlERR 


.EQU 


25 



;SCC channel B control 
/offset to SCC channel A control 
/offset to SCC data regs 
/receive buffer full bit 
/transmit buffer eiipty bit 



MMU ERROR 

CPU selection logic error 

CPU VIDEO LOGIC ERROR 

CPU PARITY LOGIC ERROR 

UNEXPECTED INTERRUPT OCCURRED 

BUS ERROR 

ADDRESS ERROR 

MISC EXCEPTION 

ILLEGAL INSTRUCTION ERROR 

line 1111 or 1010 trap 

COPS VIA ERROR 

PARALLEL PORT VIA ERROR 

10 BOARD COPS ERROR 

KEYBOARD COPS ERROR 

CLOCK ERROR 

RS232 PORT A ERROR 

RS232 PORT B ERROR 

DISK ERROR 

UNEXPECTED 10 EXCEPTION OCCURRED 

COPS reset code error 

I/O or keyboard failure 

/MEMORY ERROR 
/memory parity error 

KEYBOARD DISCONNECTED 
MOUSE DISCONNECTED 
I/O slot 1 failure 
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0000 


0000 


OOIA 


0000 


0000 


OOIB 


0000 


0000 


OOIC 


0000 


0000 


OOID 


0000 


0000 


OOIE 


0000 






0000 


0000 


OOIF 


0000 


0E7F 


FFFF 


0000 


0000 


OOOF 


0000 


0000 


03F0 


0000 


OOIF 


DCOO 


0000 


0060 


0000 


0000 


0180 


0000 


0000 


OEOO 


0000 


0000 


OOIE 


3FFA 


0000 






0000 






0000 


0018 


3000 


0000 


7000 


0000 


0000 


008F 


FFFF 


0000 


OOIF 


FFFF 


0000 






0000 






0000 






0000 






0000 






0000 






0000 


0000 


0028 


0000 


0000 


0029 


0000 


0000 


002A 


0000 


0000 


002B 


0000 


0000 


002C 


0000 


0000 


002D 


0000 


0000 


002E 


0000 


0000 


002F 


0000 


0000 


0030 


0000 


0000 


0031 


0000 






0000 


0000 


0032 


0000 


0000 


0033 


0000 


0000 


0034 


0000 


0000 


0035 


0000 


0000 


0036 


0000 


0000 


0037 


0000 


0000 


0038 


0000 


0000 


0039 


0000 


0000 


003A 



I02ERR 


.EQU 


26 


I03ERR 


.EQU 


27 


ALTBOOT 


.EQU 


28 


BTMENU 


.EQU 


29 


WRMSTRT 


.EQU 


30 


LOOP 


.EQU 


31 


EREMSK 


.EQU 


$0E7FFFFF 


CPUMSK 


.EQU 


$0000000F 


EXMSK 


.EQU 


$000003F0 


lOMSK 


.EQU 


$001FDC00 


MEMMSK 


.EQU 


$00600000 


OTHRMSK 


.EQU 


$01800000 


lOSMSK 


.EQU 


$0E000000 


CONTMSK 


.EQU 


$001E3FFA 


SCANMSK 


.EQU 


$00183000 


ALTBMSK 


.EQU 


$70000000 


BOOTMSK 


.EQU 


$008FFFFF 


CPIOMSK 


.EQU 


$001FFFFF 



;I/0 slot 2 failure 
;I/0 slot 3 failure 
/alternate boot key request 
;boot menu request 
/warm- start indicator 

/loop on test 

;MASK FOR ERROR CHECKING 

;MASK FOR CPU ERROR CHECKING 

/mask for exception error checking 

;MASK FOR I/O ERROR CHECKING 

;inask for memory error checking 

;mask for keyboard/mouse check 

;mask for I/O slot error checking 

;mask for CONTINUE option - allow continue 

; for MMU,VIDEO,CLK,RS232,MEM,MPAR,KBDOUT, 

; MOUSOUT,and 10 slot errors 

;mask for results of initial keyboard scan 

;mask for D7 when CONTINUE option invoked 

;mask for errors that continue to boot attempt 

;mask for checking for CPU and 10 errors 



.ENDC 



Equates for error codes displayed to user 





IF NEWTWIG = 







ELSE 






EMMU 




.EQU 


40 


ECPUSEL 




.EQU 


41 


EVID 




.EQU 


42 


ECPAR 




.EQU 


43 


ECPUINTR 




.EQU 


44 


EBUSEXCP 




.EQU 


45 


EADREXCP 




.EQU 


46 


EMISEXCP 




.EQU 


47 


EILLEXCP 




.EQU 


48 


ETRPEXCP 




.EQU 


49 


EVIAl 




.EQU 


50 


EVIA2 




.EQU 


51 


EIOCOP 




.EQU 


52 


EKBDCOP 




.EQU 


53 


ECLK 




.EQU 


54 


ERS232A 




.EQU 


55 


ERS232B 




.EQU 


56 


EDISK 




.EQU 


57 


EIOEXCP 




.EQU 


58 



MMU ERROR 

CPU selection logic error 

CPU VIDEO LOGIC ERROR 

CPU PARITY LOGIC ERROR 

UNEXPECTED INTERRUPT OCCURRED 

BUS ERROR 

ADDRESS ERROR 

MISC EXCEPTION 

ILLEGAL INSTRUCTION ERROR 

line 1111 or 1010 trap 

COPS VIA ERROR 

PARALLEL PORT VIA ERROR 

10 BOARD COPS ERROR 

KEYBOARD COPS ERROR 

CLOCK ERROR 

RS232 PORT A ERROR 

RS232 PORT B ERROR 

DISK ERROR 

UNEXPECTED 10 EXCEPTION OCCURRED 
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0000 


0000 


003B 


0000 


0000 


003C 


0000 






0000 


0000 


0046 


0000 


0000 


0047 


0000 


0000 


004B 


0000 






0000 






0000 


0000 


003D 


0000 


0000 


003E 


0000 






0000 






0000 


0000 


0000 


0000 


0000 


0001 


0000 


0000 


0002 


0000 


0000 


0003 


0000 


0000 


0004 


0000 


0000 


0005 


0000 






0000 


0000 


0006 


0000 


0000 


0007 


0000 






0000 






0000 






0000 


0000 


8000 


0000 


0000 


8008 


0000 


OOFE 


8000 


0000 


OOFE 


8008 


0000 


0002 


0000 


0000 


0000 


0100 


0000 


0000 


0700 


0000 


0000 


08FF 


0000 






0000 






0000 


0000 


0900 


0000 


0000 


06FF 


0000 


0000 


0901 


0000 


0000 


OFFE 


0000 






0000 






0000 


0000 


OFOO 


0000 


0000 


OOFF 


0000 


0000 


OCOO 


0000 


0000 


8008 


0000 


0000 


8000 


0000 


OOFC 


8008 


0000 


OOFC 


8000 



EI0C0P2 
EIOKBD 



.EQU 
.EQU 



59 
60 



;I0 board COPS code error 
;I/0 or keyboard error 



EMEM .EQU 70 ;R/W MEMORY ERROR 

EPAR .EQU 71 ; PARITY ERROR 

EBOOT .EQU 75 ; general boot failure error code 

; Special COPS error codes for burnin cycling 

SERRl .EQU 61 /error setting initial time 

SERR2 .EQU 62 /error setting alarm 

.ENDC 
; Secondary status flag (STATFLGS) equates 

/governs display of restart button 

/error disallows Monitor CONTINUE option 

/mouse button detected 

/cmd button up/down 

/mouse button up/dovm 

/if =1 user input from keyboard must 

/ be prefaced by CMD key 

/flag for button use 

/flag for menu use 



STARTING MMU LIMIT ADDRESS 

STARTING MMU BASE ADDRESS 

ENDING MMU LIMIT ADDRESS 

ENDING MMU BASE ADDRESS 

128K IN HEX - INCR FOR MMU REGS PTRS 

128K PAGE INCREMENT FOR ORG REGS 

LIMIT VALUE FOR MEMORY SEGMENTS 

INVERSE OF VALUE (HIGH NIBBLE IGNORED) 



NORSTRT 




.EQU 





NOCONT 




.EQU 


1 


MSBUTN 




.EQU 


2 


CMDFLG 




.EQU 


3 


MOUSE 




.EQU 


4 


CHKCMD 




.EQU 


5 


BTN 




.EQU 


6 


MENU 




.EQU 


7 


/ MMU equates 






MMUSADRL 




.EQU 


$00008000 


MMUSADRB 




.EQU 


$00008008 


MMUEADRL 




.EQU 


$00FE8000 


MMUEADRB 




.EQU 


$00FE8008 


ADR128K 




.EQU 


$00020000 


PAG128K 




.EQU 


$00000100 


MEMLMT 




.EQU 


$0700 


NMEMLMT 




.EQU 


$08FF 




IF R0M4K = 




lOLMT 




.EQU 


$0900 


NIOLMT 




.EQU 


$06FF 


I0LMT2 




.EQU 


$0901 


RSTLMT 


ELSE 
ENDC 


.EQU 


$OFFE 


SPLMT 




.EQU 


$0F00 


NSPLMT 




.EQU 


$OOFF 


INVPAG 




.EQU 


$0C00 


MMUOB 




.EQU 


$00008008 


MMUOL 




.EQU 


$00008000 


MMU126B 




.EQU 


$00FC8008 


MMU126L 




.EQU 


$00FC8000 



/LIMIT VALUE FOR I/O SEGMENT 

/ INVERSE 

/limit value for no reset feature 

/inverse mask for no reset feature 



/LIMIT VALUE FOR SPECIAL I/O SPACE 

/ INVERSE 

/INVALID PAGE LIMIT 

/ADRESS OF ORG REG (FOR LOW MEMORY) 

/ADDRESS OF LIMIT REG 

/ADDRESS OF ORG REG 126 (FOR I/O SPACE) 

; ADDRESS OF LIMIT REG 126 
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0000 


OOFE 


8008 


0000 


OOFE 


8000 


0000 


OOFC 


EOOA 


0000 


OOFC 


E008 


0000 


OOFC 


EOOE 


0000 


OOFC 


EOOC 


0000 






0000 






0000 






0000 


0000 


0009 


0000 


0000 


OOAC 


0000 


0000 


0007 


0000 


0000 


OOOE 


0000 


0000 


0070 


0000 


0000 


OOEO 


0000 






0000 


OOFE 


8000 


0000 






0000 


FFFF 


FFFC 


0000 


FFFF 


FFF8 


0000 


FFFF 


FF18 


0000 






0000 


FFFF 


FF18 


0000 






0000 






0000 






0000 


0000 


0086 


0000 


0000 


OOFF 


0000 


0000 


OOFD 


0000 






0000 






0000 






0000 


0000 


00F4 


0000 


0000 


OOFl 


0000 


0000 


00F2 


0000 


0000 


OOFO 


0000 


0000 


OOEE 


0000 


0000 


OOED 


0000 






0000 






0000 






0000 


0000 


OOAF 


0000 


0000 


OOFE 


0000 


0000 


00C4 


0000 






0000 






0000 


0000 


0080 



MMU127B 

MMU127L 

SEGION 

SEGIOFF 

SEG20N 

SEG20FF 



.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 



$00FE8008 
$00FE8000 
$OOFCEOOA 
$00FCE008 
$OOFCEOOE 
$OOFCEOOC 



ADDRESS OF BASE REG 127 (FOR RCM SPACE) 
ADDRESS OF LIMIT REG 127 
CONTEXT SELECTION BIT 1 ENABLE 
CONTEXT SELECTION BIT 1 DISABLE 
CONTEXT SELECTION BIT 2 ENABLE 
CONTEXT SELECTION BIT 2 DISABLE 



Equates for serial nuniber read routine 



Dlycnst 

TKiller 

BytesPerRead 

Words PerRead 

HalfSize 

ScrachSize 

Snvim 

dLcnt 

dSavArry 

dScrach 

dStack 



.equ 9 

. equ 172 

.equ 7 

. equ BytesPerRead*2 

.equ WordsPerRead*8 

. equ Half Size*2 



.equ 
.equ 
.equ 

.equ 



/constant for delay loop 

/time killer constant 

;bytes per read 

; during reading one byte fits into one word 

;half the size of ScrachSize 

;size of the scrach array 

;I/0 segment 126 

/location of SNl & SN2 

/special I/O segment 127 

/displacement for local variable LOOP COUNTER 

/disp. for Save Array pointer 
dSavArry-ScrachSize 

/disp. for pointer to local array SCRACH 
dScrach /disp. for the Link 



.equ $0fe8000 



-4 
dLcnt- 4 



Equates for COPS and keyboard scan 



MOUSDWN 




.EQU 


$86 


CMDKEY 




.EQU 


$FF 


ALPHKEY 




.EQU 


$FD 




.IF NEWTWIG = ( 


D 




.ELSE 






KEYl 




.EQU 


$F4 


KEY2 




.EQU 


$F1 


KEY3 




.EQU 


$F2 


AKEY 




.EQU 


$F0 


BKEY 




.EQU 


$EE 


CKEY 




.EQU 


$ED 


/DKEY 




.EQU 


$FB 


/EKEY 




.EQU 


$E0 


/FKEY 




.EQU 


$E9 


ENTRKEY 




.EQU 


$AF 


SHFTKEY 




.EQU 


$FE 


PKEY 


.ENDC 


.EQU 


$C4 



/MOUSE BUTTON PRESSED 
/LEFT CC»aMAND KEY 
/ALPHA LOCK KEY "DOWN" 



for Twiggy #1 boot 
for Twiggy #2 boot 
for Profile boot 
for I/O slot #3, port 1 
for I/O slot #3, port 2 
for I/O slot #3, port 3 
- for I/O slot #1, port 4 
/'E' key - for I/O slot #2, port 4 
/'F' key - for I/O slot #3, port 4 
Right ENTER key - for Monitor invoking 
Shift key - used for power-cycling 
' P ' key - for Power-cycling 



1' 


key 


2' 


key 


3' 


key 


A' 


key 


B' 


key 


C 


key 


'D 


' key 



RSTCODE 



.EQU 



$80 



/reset code 
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0000 


0000 


OOFD 


0000 


0000 


OOFE 


0000 


0000 


OOFF 


0000 


0000 


0007 


0000 


0000 


0087 


0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 


0000 


0000 


0000 


0000 


0001 


0000 


0000 


0002 


0000 


0000 


0003 


0000 


0000 


0004 


0000 


0000 


0006 


0000 


0000 


0007 


0000 


0000 


0009 


0000 


0000 


OOOA 


0000 


0000 


OOOF 


0000 


0000 


0010 


0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 


0000 


0031 


0000 


0000 


0032 


0000 


0000 


0033 


0000 


0000 


0034 


0000 


0000 


0037 


0000 


0000 


0041 


0000 






0000 






0000 






0000 






0000 






0000 






0000 


0000 


0001 


0000 


OOFC 


COOl 


0000 


0000 


0002 



KONPLG 




.EQU 


$FD 


ICERR 




.EQU 


$FE 


KCERR 




.EQU 


$FF 


MSUNPLG 




.EQU 


$07 


MSPLG 




.EQU 


$87 




IF 


EXTERNAL = 1 




ENDC 






; Equates for 


Boot device id's 




IF 


NEWTWIG 


= 




ELSE 






TWIGl 




.EQU 


$0 


TWIG2 




.EQU 


$1 


PROFILE 




.EQU 


$2 


lOlPORTl 




.EQU 


$3 


I01P0RT2 




.EQU 


$4 


I02P0RT1 




.EQU 


$6 


I02P0RT2 




.EQU 


$7 


I03P0RT1 




.EQU 


$9 


I03PORT2 




.EQU 


$A 


PC 




.EQU 


$F 


MON 


ENDC 


.EQU 


$10 




IF USERINT = 






ENDC 







/keyboard unplugged 
;I/0 board COPS RAM error 
/keyboard COPS RAM error 
/mouse unplugged 
/mouse plugged in 



TWIGGY DRIVE #1 

TWIGGY DRIVE #2 

PROFILE HARD DISK 

I/O SLOT 1, port 1 

I/O SLOT 1, port 2 

I/O SLOT 2, port 1 

I/O SLOT 2, port 2 

I/O SLOT 3, port 1 

I/O SLOT 3, port 2 

power cycle mode 

abort boot, go to monitor id 



Equates for device code display (ASCII codes) 





.IF NEWTWIG = 







.ELSE 






TWGl 




.EQU 


$31 


TWG2 




.EQU 


$32 


PRO 




.EQU 


$33 


lOSl 




.EQU 


$34 


I0S2 




.EQU 


$37 


I0S3 


.ENDC 


.EQU 


$41 



/Twiggy drive 
/Twiggy drive 
/ Profile 
/I/O slot 1 
/I/O slot 2 
/I/O slot 3 



#1 
#2 



Equates for Disk controller shared memory/Twiggy boot 



TWIGGY 

DISKMEM 

CMD 



.EQU 1 

.EQU $00FCC001 

.EQU 2 



/controls Twiggy code assembly (1 = YES) 
/base address of shared memory 
/offset for command byte 
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0000 


0000 


0004 


0000 


0000 


0006 


0000 


0000 


0008 


0000 


0000 


OOOA 


0000 






0000 






0000 






0000 






0000 


0000 


oooc 


0000 


0000 


OOOE 


0000 


0000 


0010 


0000 


0000 


0012 


0000 


0000 


0014 


0000 


0000 


0016 


0000 


0000 


0030 


0000 


0000 


0058 


0000 


0000 


005E 


0000 


0000 


OOBA 


0000 


0000 


00C4 


0000 


0000 


03E8 


0000 


0000 


0400 


0000 


OOFC 


C031 


0000 


0000 


0005 


0000 


0000 


0006 


0000 






0000 


0000 


0000 


0000 


0000 


0001 


0000 


0000 


0002 


0000 


0000 


0003 


0000 


0000 


0004 


0000 


0000 


0009 


0000 


0000 


OOFF 


0000 






0000 


0000 


0083 


0000 






0000 






0000 


0000 


0081 


0000 


0000 


0085 


0000 


0000 


0086 


0000 


0000 


0087 


0000 


0000 


0088 


0000 


0000 


0089 


0000 






0000 


0000 


0000 


0000 


0000 


0080 


0000 


0000 


0001 


0000 


0000 


0000 



DRV 


.EQU 


CMD+2 


SIDE 


.EQU 


DRV+2 


SCTR 


.EQU 


SIDE+2 


TRflK 


.EQU 


SCTR+2 




.IF NEWTWIG = 







.ENDC 






.IF NEWTWIG = 


1 


SPEED 


.EQU 


TRAK+2 


CNFRM 


.EQU 


SPF.F.n+2 


STAT 


.EQU 


CNFRM+2 


INTLV 


.EQU 


STAT+2 


TYPE 


.EQU 


INTLV+2 


STST 


.EQU 


TYPE+2 


RCMV 


.EQU 


$30 


RTRYCOT^ 


.EQU 


$58 


INTSTAT 


.EQU 


$5E 


CHKCNT 


.EQU 


$BA 


CHKCNT2 


.EQU 


$C4 


DSKBUFF 


.EQU 


$3E8 


DSKDATA 


.EQU 


DSKBUFF+24 


DISKRCM 


.EQU 


$FCC031 


SLOTMR 


.EQU 


5 


FASTMR 


.EQU 


6 


READS 


.EQU 





WRT 


.EQU 


1 


UNCLAMP 


.EQU 


2 


EMT 


.EQU 


3 


VFY 


.EQU 


4 


CLAMP 


.EQU 


9 


OK 


.EQU 


$FF 



SEEK 



.EQU 



.ENDC 



$83 



EXRW 


.EQU 


$81 


CLRSTAT 


.EQU 


$85 


ENBLINT 


.EQU 


$86 


DSABLINT 


.EQU 


$87 


SLEEP 


.EQU 


$88 


DIE 


.EQU 


$89 


DRVl 


.EQU 





DRV2 


.EQU 


$80 


TRKl 


.EQU 


1 


TOPSIDE 


.EQU 






/offset for drive 
;side # 
/sector # 
; track # 



; motor speed control 

/confirm for format cmd 

/error status 

/interleave factor 

/drive type id 

/self -test result 

/RCM version # 

/retry count 

/interrupt status 

/data checksum error count 

/address checksum error count 

/start of disk buffer 

/first 12 bytes are header 

/absoulte address for disk ROM id 

/id bit for slow timers 

/id bit for fast timers 

/read sector w/ checksum 

/unclanp diskette 

/verify disk 
/claitp disk 
/confirmation for format 

/seek cmd 



/execute cmd 
/clear status cmd 
/enable intrpt 
/disable intrpt 
/loop in RAM cmd 
/loop in ROM cmd 

/drive #1 ID 

/drive #2 ID 
/track 1 

/top side of disk 



CHG022 
CHG009 
CHG022 



CHG029 
CHG029 
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0000 


0000 


0001 


0000 






0000 






0000 






0000 






0000 


0000 


oooc 


0000 


0000 


0200 


0000 


0001 


FFF4 


0000 


0002 


0000 


0000 


0000 


06A6 


0000 


0000 


06A6 


0000 






0000 






0000 






0000 






0000 


OOFC 


C161 


0000 


OOFC 


C161 


0000 


OOFC 


C17D 


0000 


0000 


0008 


0000 






0000 


OOFC 


C181 


0000 


OOFC 


C189 


0000 


OOFC 


C18D 


0000 


0000 


0007 


0000 


0000 


0006 


0000 


OOFC 


CIFD 


0000 


0000 


0020 


0000 






0000 






0000 






0000 






0000 






0000 






0000 


0000 


0007 


0000 


0000 


0007 


0000 


0000 


0014 


0000 


0000 


0016 


0000 


0000 


0017 


0000 


0000 


0019 


0000 


0000 


0026 


0000 


0000 


0027 


0000 






0000 


0012 


0000 


0000 


ooco 


0000 


0000 


0180 


0000 


0000 


0018 


0000 


0000 


OOIC 


8000 



BOTSIDE 



.EQU 



.IF NEWTWIG = 

.ENDC 

.IF NEWTWIG = 1 
HDRLEN . EQU 12 

SECLEN . EQU 512 

TWGHDR .EQU $1FFF4 

TWGDATA .EQU $20000 
LASTBLK .EQU 1702 
DSKSIZE .EQU 1702 

.ENDC 



/bottom side of disk 



/length of Twiggy header 
/length of one sector 
/address to load boot header 
/address to load boot data 
/last block # 
/total amount of blocks 



Equates for parameter memory used by boot RCM 



STATSTRT 


.EQU 


$FCC161 


STATSAV 


.EQU 


STATSTRT 


STATSUM 


.EQU 


$FCC17D 


STATWRDS 


.EQU 


8 


PMSTRT 


.EQU 


$FCC181 


DVCCODE 


.EQU 


$FCC189 


MEMCODE 


.EQU 


$FCC18D 


MOUSEON 


.EQU 


7 


EXMEM 


.EQU 


6 


PMCHKSM 


.EQU 


$FCC1FD 


PMWRDS 


.EQU 


32 



Equates for disk errors 





IF 


NEWTWIG = 







ENDC 






IF 


NEWTWIG = 


1 


DRVERR 




.EQU 


07 


NODISK 




.EQU 


DRVERR 


WRPERR 




.EQU 


20 


CLMPERR 




.EQU 


22 


RDWRERR 




.EQU 


23 


UCLMPERR 




.EQU 


25 


BADTHDR 




.EQU 


38 


TIMOUT 




.EQU 


39 


CMDTIME 




.EQU 


$120000 


FDIRTIME 




.EQU 


$C00000 


VFYTIME 




.EQU 


<FDIRTIME*2> 


EJCTTIME 




.EQU 


$180000 


DSKTMOUT 




.EQU 


$1C8000 



/start of special parameter memory area for boot ROM 

/save of error code 

/checksiom word for special area 

/length in words (16 bytes) 

/start of system paramter memory 

/boot device code 

/mouse/memory test indicator byte 

/bit for mouse attached (l=yes) 

/bit for extended memory test (l=yes) 

/checksiom word 

/length in words (64 bytes) 



/new firmware, new error codes 

/no disk in drive 

/another name for it 

/write protect error 

/claitp error 

/read error 

/unclanp error 

/bad header (not a boot file id) 

/timeout error 

/timeout for taking command (15 sees) 
/timeout for setting FDIR (2 mins) 
/timeout for verify disk operation (4 mins) 
/timeout for ejecting disk (15 sees) 
/timeout for initial speed check (15 sees) 



Computer Boot ROM 2.48 Listing • 27 of 265 



0000 


ooco 


0000 


0000 


0180 


0000 


0000 






0000 






0000 






0000 






0000 


0000 


0000 


0000 


0000 


0001 


0000 


0000 


0002 


0000 


0000 


0004 


0000 


0000 


0005 


0000 


0000 


0006 


0000 






0000 






0000 






0000 


0000 


0002 


0000 


0000 


0003 


0000 






0000 


OOFC 


C015 


0000 






0000 






0000 






0000 






0000 






0000 






0000 


0000 


0001 


0000 


0000 


0000 


0000 


0000 


0001 


0000 


0000 


0304 


0000 


0000 


01B4 


0000 


0000 


01B4 


0000 


0000 


01B5 


0000 


0000 


01B6 


0000 


0000 


01B6 


0000 


C140 


cooo 


0000 


0000 


0005 


0000 


0000 


0000 


0000 


0000 


0001 


0000 


0000 


0002 


0000 


0000 


0003 


0000 


0000 


0004 


0000 


0000 


0005 


0000 


0001 


FFEC 


0000 


0000 


0004 


0000 


0000 


AAAA 


0000 


0002 


0000 


0000 


0000 


0014 



INSRTTIM 
EMTTIME 



.EQU 
.EQU 



FDIRTIME 
VFYTIME 



.ENDC 



Equates for disk interrupt status 



DSKIIN 


.EQU 





BUTNl 


.EQU 


1 


RWFl 


.EQU 


2 


DSK2IN 


.EQU 


4 


BUTN2 


.EQU 


5 


RWF2 


.EQU 


6 



/timeout for disk to be inserted (2 mins) 
/timeout for format operation 



/drive #1 disk in place 
/drive #1 button pushed 
/read/write/format done on drive #1 
/drive #2 disk in place 
/drive #2 button pushed 
/read/write/format done on drive #2 



Equates for disk status command response 



DSKIN 
BUTN 

DRVTYPE 



.EQU 
.EQU 



.EQU $FCC015 



/disk inserted 
/button pressed 

/drive type id (0 = Twiggy, 

/ 1 = single SONY, 2 = doiable SONY) 



CHG009 
CHG009 



Equates for use with Profile boot 



PROFLE 


.EQU 


1 


OCD 


.EQU 





BSY 


.EQU 


1 


CMDBUFR 


.EQU 


$304 


STATBFR 


.EQU 


$1B4 


STATl 


.EQU 


$1B4 


STAT2 


.EQU 


$1B5 


STAT3 


.EQU 


$1B6 


STAT4 


.EQU 


$1B6 


STATMSK 


.EQU 


$C140C000 


PCMDSZ 


.EQU 


5 


PCMD 


.EQU 





BLKH 


.EQU 


1 


BLKM 


.EQU 


2 


BLKL 


.EQU 


3 


RETRY 


.EQU 


4 


THRESH 


.EQU 


5 


HDRBUFR 


.EQU 


$1FFEC 


FILEID 


.EQU 


4 


BOOTPAT 


.EQU 


$AAAA 


DATABFR 


.EQU 


$20000 


HDRSIZE 


.EQU 


20 



controls assembly of Profile code 

OPEN CABLE DETECT INPUT 

BUSY LINE INPUT 

BUFFER FOR CC»1MAND BYTES 

STATUS BYTE BUFFER (uses BOOTDATA area) 

STATUS BYTE 1 

STATUS BYTE 2 

STATUS BYTE 3 

STATUS BYTE 4 

MASK FOR DON'T CARE STATUS BITS 

BYTES FOR READ CMD - 1 

COMMAND CODE 

HIGH BLOCK ADDRESS 

MID BLOCK ADDRESS 

LOW BLOCK ADDRESS 

RETRY COUNT 

THRESHOLD COUNT 
BUFFER FOR HEADER 

OFFSET TO FILEID 
FILEID FOR BOOT PATTERN 
BUFFER FOR DATA 
HEADER LENGTH 



CHG016 
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0000 


0000 


0200 


0000 


0120 


0000 


0000 


0090 


0000 


0000 


0018 


0000 


0000 


0000 


0500 


0000 


0000 


FFFF 


0000 


0000 


OOOA 


0000 


0000 


0003 


0000 






0000 






0000 






0000 






0000 


0000 


0050 


0000 


0000 


0051 


0000 


0000 


0052 


0000 


0000 


0053 


0000 


0000 


0054 


0000 


0000 


0055 


0000 






0000 






0000 






0000 






0000 






0000 






0000 


OOFC 


0001 


0000 


OOFC 


4001 


0000 


OOFC 


8001 


0000 


0000 


OOOE 


0000 


0000 


OOOD 


0000 


0000 


oooc 


0000 


0002 


0000 


0000 


0002 


0002 


0000 


0002 


0004 


0000 


0000 


8001 


0000 


0000 


9FFF 


0000 


0000 


1000 


0000 


0000 


1800 


0000 






0000 






0000 






0000 






0000 






0000 


0000 


005A 


0000 


0000 


005B 


0000 


0000 


005C 


0000 


0000 


005D 


0000 







BLKSIZE 




.EQU 


512 


STRTIME 




.EQU 


$1200000 


RSTRTIME 




.EQU 


$900000 


RDTIME 




.EQU 


$180000 


BSYTIME 




.EQU 


$0500 


RSPTIME 




.EQU 


$FFFF 


RCNT 




.EQU 


10 


TCNT 




.EQU 


3 


; Equates for 


Profile 


boot erro 




.IF NEWTWIG = 







.ELSE 






NODSK 




.EQU 


80 


DSKBSY 




.EQU 


81 


BADRSP 




.EQU 


82 


STATNZ 




.EQU 


83 


BADHDR 




.EQU 


84 


TMOOT 


.ENDC 


.EQU 


85 



BLOCK SIZE 

STARTUP TIMEOUT after power-up = about 3 minutes 

STARTUP TIMEOUT after reset = ABOUT 100 SECS 

READ TIMEOUT = ABOUT 16 SECS CHG037 

Wait for busy high = about 10 ms 

RESPONSE TIMEOUT = ABOUT 500 ms 

BOOT RETRY COUNT 

THRESHOLD COUNT FOR 30% SPARING 



DISK NOT ATTACHED 
DISK NOT REflDY 
UNEXPECTED RESPONSE 
NONZERO STATUS BYTE 
INCORRECT HEADER 
TIMEOUT ERROR 



Equates for I/O slot booting 



SLOTIL 


.EQU 


$FC0001 


SL0T2L 


.EQU 


$FC4001 


SL0T3L 


.EQU 


$FC8001 


STBIT 


.EQU 


14 


ICBIT 


.EQU 


13 


TSTBIT 


.EQU 


12 


STENTRY 


.EQU 


$20000 


BTENTRY 


.EQU 


$20002 


ICONPTR 


.EQU 


$20004 


APPLENET 


.EQU 


$8001 


APPLQUAL 


.EQU 


$9FFF 


TSTCRD 


.EQU 


$1000 


TSTQUAL 


.EQU 


$1800 



;I/0 slot 1 SL address 

;I/0 slot 2 SL address 

;I/0 slot 3 SL address 

/status bit in id 

;icon bit in id 

;test card bit in id 

/entry point for status routine 

;boot routine entry point 

/pointer to icons, if any 

;id for i^jplenet card 

/qualifier for J^>plenet search 

;id for test card 

/qualifier for test card search 



; Error codes for I/O slot booting 

.IF NEWTWIG = 

.ELSE 

NOC .EQU 90 

INV . EQU 91 

BADSM . EQU 92 

BADST . EQU 93 

.ENDC 



;no card installed 
;not bootable card 
/invalid checksvim 
;bad status returned 



Computer Boot ROM 2.48 Listing • 29 of 265 



0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 


OOFC 


C191 


0000 


OOFC 


C193 


0000 


OOFC 


CI 95 


0000 


OOFC 


C197 


0000 


OOFC 


C199 


0000 


OOFC 


C19B 


0000 


OOFC 


C19D 


0000 


OOFC 


C19F 


0000 


OOFC 


ClAl 


0000 


OOFC 


ClBl 


0000 


OOFC 


ClCl 


0000 


OOFC 


C1C3 


0000 


OOFC 


C1C5 


0000 


OOFC 


CIFF 


0000 


0000 


0000 


0000 


1000 


0000 


0000 


0000 


OIBC 


0000 


0000 


OIBD 


0000 


OOEO 


FOOO 


0000 


0003 


COOO 


0000 


0000 


9000 


0000 


0010 


0000 


0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 


0000 


003F 


0000 


0000 


OOOD 


0000 


0000 


0008 


0000 






0000 






0000 






0000 


0000 


00F3 



.IF BURNIN = 1 



Special equates for burnin cylcing code 



INITFLG 

HOURSAV 

LCNTHI 

LCNTLO 

TIMFLG 

MINSAV 

DSKCNTH 

DSKCNTL 

CLKSAVE 

ALRMSAV 

CYCLCNT 

CYCLVAL 

MINCNT 

ENDPM 

SETl 

SET2 

HOUR 

MINUTE 

ONEHOUR 

ONEMIN 

TENSECS 

DLYTIME 



.EQU 


$FCC191 


.EQU 


$FCC193 


.EQU 


$FCC195 


.EQU 


$FCC197 


.EQU 


$FCC199 


.EQU 


$FCC19B 


.EQU 


$FCC19D 


.EQU 


$FCC19F 


.EQU 


$FCC1A1 


.EQU 


$FCC1B1 


.EQU 


$FCC1C1 


.EQU 


$FCC1C3 


.EQU 


$FCC1C5 


.EQU 


$FCC1FF 


.EQU 


$0 


.EQU 


$10000000 


.EQU 


$1BC 


.EQU 


$1BD 


.EQU 


$OOEOFOOO 


.EQU 


$0003C000 


.EQU 


$00009000 


.EQU 


$100000 



/first pass flag (01 = no) 

;save of last hour value from clock 

;loop coiant 

;flag to indicate hour save needed 

;save of minute value for Twiggy test 

;disk read error count - high byte 

;disk read error count - low byte 

/saved clock value 

/saved alarm value last set 

/count of minutes for power cycling 

;# of mins between power cycles 

/count of minutes for debug mode 

;end of parameter memory 

/initial alarm/year/dd setting 

/d/hh/mm/ss/t setting 

/location of latest hour value read 

/location of latest minute value read 

/one hour setting for alarm 

/one minute setting for alarm 

/ten seconds 

/delay for screen display 



.ENDC 



.PAGE 



Equates for Monitor code and screen handling 



Ascii code equates 



QUESTN 

RET 

BS 



.EQU $3F 
.EQU $0D 
.EQU $08 



7 

CR 
backspace 



/ Keyboard code equates 
KEY4 . EQU $F3 



/■4' 
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0000 


0000 


00E4 


0000 


0000 


OOEl 


0000 


0000 


00E2 


0000 


0000 


00E3 


0000 


0000 


OODO 


0000 


0000 


00F6 


0000 


0000 


OOFF 


0000 


0000 


007F 


0000 


0000 


0006 


0000 






0000 






0000 






0000 


0000 


02C0 


0000 


0000 


0300 


0000 






0000 






0000 






0000 


0000 


0300 


0000 


0000 


0302 


0000 






0000 


0000 


oooc 


0000 






0000 






0000 






0000 






0000 


0000 


005A 


0000 


0000 


02D0 


0000 


0000 


016C 


0000 


0000 


05A0 


0000 


0000 


05FA 


0000 


0000 


7FF8 


0000 


AAAA 


5555 


0000 






0000 


0000 


0014 


0000 


0000 


0002 


0000 


0000 


0056 


0000 


0000 


0140 


0000 


0000 


00B4 


0000 


0000 


002D 


0000 


0000 


0017 


0000 


0000 


0041 


0000 


0000 


070A 


0000 






0000 


0000 


0031 


0000 


0000 


0006 


0000 


0000 


004E 


0000 


0000 


00A4 



KEY5 

KEY6 

KEY7 

KEYS 

KEY9 

SKEY 

CmdDwn 

CmdUp 

MousOp 



Low memory usage 



.EQU 


$E4 


.EQU 


$E1 


.EQU 


$E2 


.EQU 


$E3 


.EQU 


$D0 


.EQU 


$F6 


.EQU 


CMDKEY 


.EQU 


$7F 


.EQU 


$06 


age 

.EQU 


$2C0 


.EQU 


$300 



KBDBFR 
KBDEND 



.IF USERINT = 

.ELSE 
CRTROW . EQU $300 

CRTCOL .EQU $302 

.ENDC 
MAXTEST . EQU 12 

.IF USERINT = 

.ELSE 



Equates for new user interface code 



ROWBYTES 

MaxX 

MaxY 

MENULINE 

DESKLINE 

DESKLMT 

DESKPATRN 

WROW 

WCOL 

WINDWIDTH 

WINDHIGH 

WMIDROW 

WMIDCOL 

W14C0L 

W34COL 

WINDSTRT 

ALBOXROW 
ALBOXCOL 
ALRTWIDTH 
ALRTHIGH 



.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 

.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 

.EQU 
.EQU 
.EQU 
.EQU 



90 

720 

364 

1440 

1530 

32760 

$AAAA5555 



'5' 

'6' 

'7' 

■8' 

'9' 

■S' 

Command key down 

Command key up 

Mouse button up 



/keyboard buffer start 
; and end (64 chars max) 



/display row ptr 
/display col ptr 

/max test # for LOOP option 



/width of screen in bytes 
/width in pixels 
/length in pixels 
/bottom line loc for menu 
/top line loc for desktop 
/bottom line loc for desktop 
/pattern for "grey" desktop 



20 

2 

86 

320 

<WINDHIGH/2>+WR0W 

<WINDWIDTH/2>+WC0L 

<WINDWIDTH/ 4>+WC0L 

<WINDWIDTH/4>*3+WC0L 

<WR0W*R0WBYTES>+WC0L 

49 
6 

78 
164 



/window row 

/starting window col 

/width of window in bytes 

/heigth of window in pixel lines 

/middle row in window 

/middle col in window 

/col 1/4 across window 

/col 3/4 across window 

/start of window 

/starting row for alert box 
/starting col for alert box 
/width of alert box 
/heigth of alert box 
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0000 


0000 


1140 


0000 


0000 


0083 


0000 


0000 


002D 


0000 






0000 


0000 


OOOA 


0000 


0000 


OOIC 


0000 


0000 


lOEO 


0000 


0000 


0392 


0000 


0000 


0045 


0000 


0000 


0034 


0000 


0000 


1876 


0000 


0000 


2956 


0000 


0000 


3A36 


0000 


0000 


1C08 


0000 


0000 


2CE8 


0000 


0000 


3DC8 


0000 






0000 


0000 


05A2 


0000 


0000 


OOOB 


0000 


0000 


03DE 


0000 


0000 


0012 


0000 


0000 


0111 


0000 


0000 


0658 


0000 


0000 


0010 


0000 






0000 


0000 


0007 


0000 


0000 


20B4 


0000 






0000 






0000 


0000 


0012 


0000 


0000 


0022 


0000 


0000 


0BF4 


0000 






0000 






0000 


0000 


0042 


0000 


0000 


0014 


0000 


0000 


0168 


0000 


0000 


0014 


0000 


0000 


071E 


0000 


0000 


0018 


0000 


0000 


0018 


0000 






0000 


0000 


07BC 


0000 






0000 


0000 


0014 


0000 


0000 


OEDA 


0000 


0000 


0042 



ALRTSTRT 
MIDALROW 
MIDALCOL 

BTNWIDTH 

BTNHIGH 

BTNSPC 

BTNMSPC 

BTNROW 

BTNCOL 

BTNISTRT 

BTN2STRT 

BTN3STRT 

BTNIMSG 

BTN2MSG 

BTN3MSG 

MENUSTRT 

MENULEN 

MENUSPC 

MENUWIDTH 

MENULCX: 

MENUIMSG 

MBARLEN 

MITEMS 
MENUEND 



.EQU 
.EQU 
.EQU 

.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 

.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 

.EQU 
.EQU 



<ALBOXROW*ROWBYTES>+ALBOXCOL ; upper left corner of alert box 
ALB0XR0W+<ALRTHIGH/2> /middle row of alert box 
ALB0XC0L+<ALRTWIDTH/2> ,middle col of alert box 



.IF BMENU = 1 
BMENUWIDTH . EQU 
BMENULEN . EQU 
BMENUSPC . EQU 

.ENDC 



DBOXWIDTH 

DBOXHIGH 

DBOXTOP 

DBOXLEFT 

DBOXSTRT 

DBOXROW 

DBOXCOL 

SVCTOP 



.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 

.EQU 



10 

28 

48*ROWBYTES 

<10*ROWBYTES>+BTNWIDTH+4 

ALBOXROW+20 

52 

<BTNROW*ROWBYTES>+BTNCOL 

BTNISTRT+BTNSPC 

BTN2STRT+BTNSPC 

BTNISTRT+BTNMSPC 

BTN2STRT+BTNMSPC 

BTN3STRT+BTNMSPC 



/width of button 

;heigth of button 

; space between upper left corner of buttons 

; position of button label relative to button 
/starting display row for buttons 
/starting display col for buttons 

/location of first button 
/location of second button 
/location of third button 
/location of button descriptions 



MENULINE+2 /start of pull down menu 

11 /length of menu per entry 

990 /vertical space between menu entries 

18 /width of pull down menu 

273 /start pt for menu heading 

MENUSTRT+182 /location of first menu entry 

16 /heigth of menu bar 



MENUSTRT+<MITEMS*MENUSPC> 



/number of menu items 
/bottom of menu 



MENUWIDTH 

34 

<BMENULEN*90> 



width of pull down menu 

length of each boot menu entry 

vertical space between boot menu entries 



84-MENUWIDTH 

20 

4*R0WBYTES 

MENUWIDTH+2 

MENUSTRT+DBOXLEFT+DBOXTOP 

<DBOXSTRT/90>+4 

MENUWIDTH+6 

<DB0XHIGH+2>*R0WBYTES 



SVCLEFT 


.EQU 


MENUWIDTH+2 


SVCSTRT 


.EQU 


DBOXSTRT+SVCTOP 


SVCWIDTH 


.EQU 


84-MENUWIDTH 



/width of dialog box 

/heigth of dialog box 

/dialog box spacing down from menu line 

/dialog box spacing left from menu 

/start of dialog box 

/pixel row for dialog msg 

/byte col for dialog msg 

/service window spacing down 

/ from top of dialog box 

/service window spacing left from menu 

/left corner for service window 

/width of service window 
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0000 


0000 


0140 


0000 






0000 


0000 


003E 


0000 


0000 


0018 


0000 


0000 


012C 


0000 


0000 


OOIB 


0000 


0000 


014C 


0000 


0000 


0058 


0000 


0000 


OOOA 


0000 


0000 


0042 


0000 


0000 


OOIB 


0000 


0000 


0008 


0000 


0000 


0001 


0000 


0000 


OOOA 


0000 






0000 


0000 


0006 


0000 


0000 


0020 


0000 






0000 


0000 


0031 


0000 


0000 


OOOA 


0000 


0000 


1144 


0000 


0000 


0046 


0000 


0000 


0054 


0000 


0000 


0040 


0000 


0000 


OOOE 


0000 


0000 


005B 


0000 


0000 


004B 


0000 


0000 


0055 


0000 


0000 


0014 


0000 


0000 


OOOE 


0000 






0000 


0000 


1DF6 


0000 


0000 


1E04 


0000 


0000 


1E12 


0000 


0000 


1E20 


0000 






0000 


0000 


0073 


0000 


0000 


0010 


0000 


0000 


287E 


0000 


0000 


0073 


0000 


0000 


0010 


0000 


0000 


0097 


0000 


0000 


0012 


0000 


0000 


007E 


0000 


0000 


0018 


0000 


0000 


0010 


0000 


0000 


0004 



SVCHIGH 

FIRSTROW 

FIRSTCOL 

ROWSLEFT 

CHARROWS 

LASTROW 

LASTCOL 

ROWLINES 

ROHLEN 

NROWS 

CHRHIGH 

CHRWIDTH 

CHRSPC 

ICONWIDTH 
ICONHIGH 

TSTROW 

TSTCOL 

TSTWSTRT 

TSTWWIDTH 

TSTWHIGH 

TSTMROW 

TSTMCOL 

MIDTSTROW 

CHKROW 

TSTIROW 

TSTICOL 

TSTISPC 

CPUSTRT 
MEMSTRT 
lOSTRT 
XCRDSTRT 

ERRROW 

ERRCOL 

ERRSTRT 

ALRTROW 

ALRTCOL 

CODEROW 

CODECOL 

MSGROW 

MSGCOL 

MEMROW 

MEMCOL 



.EQU 

.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 

.EQU 
.EQU 

.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 

.EQU 
.EQU 
.EQU 
.EQU 

.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 



320 

<SVCSTRT/90>+20 

MENUWIDTH+6 

SVCHIGH-20 

<ROWSLEFT/10>-3 

<CHARROWS*10>+FIRSTROW 

FIRSTCOL+SVCWIDTH-2 

10 

<LASTCOL-FIRSTCOL> | 1+1 

<LASTROW-FIRSTROW>/ROWLINES 

8 

1 

CHRHIGH+2 



; length of service window 

; first row for display of msgs 

; first colimin 

; pixel rows to bottom of service window 

;rows used for character display 

;last pixel row for display 

;last column 

; pixel row lines per character 

; bytes per pixel row (must be even!) 

;nviinber of character rows 
; character heigth in pixel lines 
; width of char in bytes 
;vert pixel lines between chars 



6 
32 

ALBOXROW 

10 

<TSTROW*ROWBYTES>+TSTCOL 

70 

84 

TSTROW+15 

TSTCOL+4 

TSTR0W+<TSTWHIGH/2> 

MIDTSTR0W-<IC0NHIGH/2> 

CHKROW+10 

TSTCOL+10 

ICONWIDTH+8 



;width in bytes of icons 

; heigth of icons in pixel rows 

/starting row for test alert box 
; starting col for test alert box 
;test alert box start 
;width for test alert box 
;heigth for test alert box 
;row for test message display 
;col for test message display 
; middle row of test box 
;row for check mark display 
;row for test icon display 
;col for test icon display 
/space between test icons 



<TSTIROW*ROWBYTES>+TSTICOL ; upper left corner for CPU icon 

CPUSTRT+TSTISPC ; upper left corner for MEM icon 

MEMSTRT+TSTISPC ; upper left corner for I/O icon 

lOSTRT+TSTISPC ;upper left corner for slot icon 



MIDALR0W-<IC0NHIGH/2> 

ALBOXCOL+10 

<ERRROW*ROWBYTES>+ERRCOL 

ERRROW 

ERRCOL 

ERRROW+36 

ERRCOL+2 

ALRTROW+11 

ALRTCOL+8 

16 

4 



;row for error icon display 
;col for error icon display 

; start address for error icon display 
;row for alert icon display 
;col for alert icon display 
;row for error code display 
;col for error code display 
;row for alert/error message display 
;col for alert/error message display 
/offset row for memory board id # display 
/offset col for memory board id # display 
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0000 


0000 


0012 


0000 


0000 


0004 


0000 


0000 


0016 


0000 


0000 


0003 


0000 


0000 


0006 


0000 


0000 


0003 


0000 


0000 


0005 


0000 


0000 


0004 


0000 






0000 






0000 


0000 


00A4 


0000 


0000 


003E 


0000 


0000 


39E6 


0000 


0000 


0014 


0000 


0000 


1B72 


0000 


0000 


1B7E 


0000 


0000 


39BC 


0000 


0000 


1B8A 


0000 


0000 


1680 


0000 


0000 


0440 


0000 


0000 


oooc 


0000 






0000 


0000 


0445 


0000 






0000 


0000 


0056 


0000 


0000 


ooco 


0000 


0000 


070A 


0000 


0000 


0059 


0000 


0000 


OOOC 


0000 






0000 


0000 


0003 


0000 


0000 


0050 


0000 






0000 






0000 


0000 


0480 


0000 






0000 






0000 






0000 


0000 


0480 


0000 


0000 


0486 


0000 


0000 


0488 


0000 


0000 


048A 


0000 


0000 


048B 


0000 


0000 


048C 


0000 


0000 


048E 


0000 






0000 


0000 


0490 



DISKROW 

DISKCOL 

SLOTROW 

SLOTCOL 

DRVROW 

DRVCOL 

INSRTROW 

INSRTCOL 



DEFROW 

DEFCOL 

DEFSTRT 

ALTCOL 

COLISTRT 

C0L2STRT 

C0L2MID 

C0L3STRT 

ICONCSPC 

ICONMSPC 

ICONRSPC 

ALTKYADDR 



.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 



.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 

.EQU 



18 

4 

22 

3 

6 

3 

5 

4 



WMIDR0W-<IC0NHIGH/2> 

W34COL-<ICONWIDTH/2> 

<DEFROW*ROWBYTES>+DEFCOL 

W14COL-<ICONWIDTH/2> 

<78*ROWBYTES>+6 

COLlSTRT+12 

<DEFROW*ROWBYTES>+ALTCOL 

COL2STRT+12 

<64*ROWBYTES> 

<12*ROWBYTES>+6+2 

12 



offset row for diskette id # display 
offset col for diskette id # display 
offset row for slot card id # display 
offset col for slot card id # display 
offset row for drive id # display 
offset col for drive id # display 
offset row for insert rqst id 
offset col for insert rqst id 



CHG024 



CHG009 
CHG009 

# display CHG009/C:hG024 

# display CHG009 



;row for default boot icon display 

;col for default boot icon display 

; start address for default boot icon 

;col for alternate boot icon display 

; start for first column of boot icons 

; start for second col of boot icons 

; middle of second col 

; start for third col of boot icons 

; space between left corner of icons in col 

; start addr offset for boot icon alternate keycode 

; space in between cols in same row 



ICONMSPC+5 



PCWIDTH 




.EQU 


86 


PCHIGH 




.EQU 


192 


PCSTRT 




.EQU 


WINDSTRT 


PCROW 




.EQU 


ALBOXROW+40 


PCCOL 




.EQU 


ALBOXCOL+6 


ROMIDROW 




.EQU 


3 


RCMIDCOL 




.EQU 


80 




IF DEBUG = 




GLOBALS 


ELSE 
ENDC 


.EQU 


STKBASE 


ClockBytes 


.EQU 


Globals 


MousX 




.EQU 


ClockBytes+6 


MousY 




.EQU 


MousX+2 


MousDx 




.EQU 


MousY+2 


MousDy 




.EQU 


MousDx+1 


MousScaling 


.EQU 


MbusDy+1 


MousThresh 


.EQU 


MousScale | 1+1 



/address offset for display of alternate keycode in menu bar 

/width of window for power cycling msgs 

/height of window 

/upper left corner of window 

/first row for power cycle msgs 

/first col for power cycle msgs 



CrsrHotx 



.EQU 



MdusThresh+2 



/cursor row ptr for ROM id display 
/cursor col ptr for ROM id display 



/start of global area for mouse/cursor 



/clock data save area 
/mouse X-coordinate (word) 
/mouse Y-coordinate (word) 
/mouse delta-x (byte) 
/mouse delta-y (byte) 
/0=disabled, else=enabled (byte) 
/mouse movement threshold (word) 

/hotspot X-coordinate (word) 



CHGOOl 
CHGOOl 
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0000 


0000 


0492 


0000 


0000 


0494 


0000 


0000 


0496 


0000 


0000 


0498 


0000 


0000 


049A 


0000 


0000 


049B 


0000 


0000 


049C 


0000 


0000 


049E 


0000 


0000 


04A0 


0000 






0000 


0000 


04A2 


0000 


0000 


0522 


0000 


0000 


0524 


0000 


0000 


0526 


0000 


0000 


0528 


0000 






0000 


0000 


052C 


0000 


0000 


052E 


0000 






0000 






0000 






0000 


0000 


0530 


0000 


0000 


0532 


0000 






0000 






0000 


0000 


0534 


0000 






0000 


0000 


0535 


0000 


0000 


0536 


0000 


0000 


0538 


0000 






0000 


0000 


053A 


0000 


0000 


053A 


0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 


0000 


0180 


0000 


0000 


0184 


0000 


0000 


0186 


0000 


0000 


0188 


0000 


0000 


01A6 


0000 


0000 


OlAA 


0000 


0000 


OlAC 



CrsrHoty 


.EQU 


CrsrHotX+2 


CrsrHeight 


.EQU 


CrsrHotY+2 


CrsrX 


.EQU 


CrsrHeight+2 


CrsrY 


.EQU 


CrsrX+2 


CrsrTracking 


.EQU 


CrsrY+2 


CrsrBusy 


.EQU 


CrsrTracking+1 


CrsrVisible 


.EQU 


CrsrBusy+1 


CrsrHidden 


.EQU 


CrsrVisible | 1+1 


CrsrObscured 


.EQU 


CrsrHidden+2 


SavedData 


.EQU 


CrsrObscured+2 


SavedX 


.EQU 


SavedData+128 


SavedY 


.EQU 


SavedX+2 


SavedRows 


.EQU 


SavedY+2 


SavedAddr 


.EQU 


SavedRows+2 


LwrRight 


.EQU 


SavedAddr+4 


MsgLen 


.EQU 


LwrRight+2 



.IF BMENU = 

.ELSE 
MenuBase . EQU Msglen+2 
IconAddr . EQU Meni:iBase+2 

.ENDC 



IconCnt 



.EQU 



IconAddr+2 



DRIVE 




.EQU 


IconCnt+1 


BLKNUM 




.EQU 


DRIVE+1 


CONTXT 




.EQU 


BLKNUM+2 


RectCnt 




.EQU 


CONTXT+2 


RectTable 


.EQU 


RectCnt 




.ENDC 








.PAGE 







;hotspot Y-coordinate (word) 
/cursor height, 0-32 (word) 
/cursor X-coordinate (word) 
/cursor Y-coordinate (word) 
/0=disabled, else=enabled (byte) 
/O=not busy, else=busy (byte) 
/O=not visible, else=visible (byte) 
/<=0 implies hiddden (word) 
;0=not obscured, else=obscured (byte) 

/data from under cursor (128 bytes) 
/saved data X-coordinate (word) 
/saved data Y-coordinate (word) 
/rows of saved data (word) 
/saved data screen address (long) 

/saved lower right corner address (word) 
/length of dialog box msg (word) 



/address of last boot menu "box" (word) 
/address for last boot icon displayed (word) 



/count of boot icons displayed (byte) 

/drive id for dimp/verify options (byte) 
/block # for damp option (word) 
/context for dvimp of MMU contents (byte) 

/count for active rect table (word) 
/active rectangle table (same start) 



The following memory locations are reserved for ROM use to save test data 



STATUS 

SIZRSLT 

MEMRSLT 

BCX)TMEM 

FEADDR 

ADRLTCH 

D7SAV 



EQU 


$0180 


EQU 


STATUS+4 


EQU 


SIZRSLT+2 


EQU 


MEMRSLT+2 


EQU 


MEMRSLT+32 


EQU 


PEflDDR+4 


EQU 


ADRLTCH+2 



POWER-UP STATUS (0=OK) 

memory sizing test results 

MEMORY TEST RESULTS 

result for boot area of memory (128K) 

PARITY ERROR ADDRESS 

CONTENTS OF MEMORY ADDRESS LATCH 

save for D7 when exception occurs 
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0000 


0000 


OIBO 


MMURSLT 


.EQU 


$01B0 


MMU TEST RESULTS 




0000 


0000 


01B2 


KEYID 


.EQU 


$01B2 


Keyboard ID 




0000 


0000 


01B3 


BCX)TDVCE 


.EQU 


$01B3 


BCX)T DEVICE CODE 




0000 


0000 


01B4 


BCX)TDATA 


.EQU 


$01B4 


BCX)T FAILURE DATA 




0000 


0000 


OIBA 


CLKDATA 


.EQU 


$01BA 


CLOCK SETTING READ 




0000 


0000 


OICO 


DATAEGS 


.EQU 


$01C0 


DATA REG SAVE AREA 




0000 


0000 


OlEO 


ADRREGS 


.EQU 


$01E0 


ADDRESS REG SAVE AREA 




0000 


0000 


01F8 


A6SAV 


.EQU 


$01F8 


SAVE AREA FOR REG A6 




0000 


0000 


OlFC 


USPSAV 


.EQU 


$01FC 


SAVE AREA FOR USER STACK PTR 




0000 
















0000 


0000 


0240 


SEBNUM 


.EQU 


$0240 


saved serial nvimber (28 bytes) 




0000 


0000 


0260 


KBDQPTR 


.EQU 


$0260 


ptr for keyboard queue 




0000 
















0000 


0000 


0268 


XPCTADDR 


.EQU 


$0268 


memory test address for parity error 


CHG015 


0000 


0000 


026C 


XPCTDATA 


.EQU 


$026C 


memory test expected data 


CHG015 


0000 


0000 


0270 


ACTADDR 


.EQU 


$0270 


parity error address, phase 2 


CHG015 


0000 


0000 


0274 


ACTDATA 


.EQU 


$0274 


actual data read on parity error, phase 2 


CHG015 


0000 


0000 


0278 


PEADR2 


.EQU 


$0278 


address read from error latch 


CHG015 


0000 


0000 


027C 


PCHPROW 


.EQU 


$027C 


parity chip row 


CHG015 


0000 


0000 


027D 


PCHIP 


.EQU 


$027D 


parity chip id 


CHG015 


0000 
















0000 


0000 


0280 


EXCFC 


.EQU 


$0280 


bus function code 




0000 


0000 


0282 


EXCADR 


.EQU 


$0282 


address of error 




0000 


0000 


0286 


EXCIR 


.EQU 


$0286 


instruction reg 




0000 


0000 


0288 


EXCSR 


.EQU 


$0288 


status reg 




0000 


0000 


02 8A 


EXCPC 


.EQU 


$028A 


PC at time of exception 




0000 


0000 


028E 


EXCTYPE 


.EQU 


$028E 


exception type 




0000 


0000 


0290 


SUPSTK 


.EQU 


$0290 


SUPERVISOR STACK PTR 




0000 


0000 


0294 


MAXMEM 


.EQU 


$0294 


MAX MEMORY ADDRESS + 1 




0000 


0000 


0298 


lOlID 


.EQU 


$0298 


I/O SLOT 1 ID 




0000 


0000 


02 9A 


I02ID 


.EQU 


$029A 


I/O SLOT 2 ID 




0000 


0000 


029C 


I03ID 


.EQU 


$029C 


I/O SLOT 3 ID 




0000 


0000 


02 9E 


lOlSTAT 


.EQU 


$029E 


I/O SLOT 1 STATUS 




0000 


0000 


02 9F 


I02STAT 


.EQU 


$029F 


I/O SLOT 2 STATUS 




0000 


0000 


02A0 


I03STAT 


.EQU 


$02A0 


I/O SLOT 3 STATUS 




0000 


0000 


02A1 


lOROM 


.EQU 


$02A1 


I/O ROl VERSION # 




0000 


0000 


02A2 


STATFLGS 


.EQU 


$02A2 


additional status indicators 




0000 


0000 


02A4 


MINMEM 


.EQU 


$02A4 


MINIMUM PHYSICAL ADDRESS 




0000 


0000 


02A8 


TOTLMEM 


.EQU 


$02A8 


total amount of memory 




0000 


0000 


02AC 


SCCRSLT 


.EQU 


$02AC 


sec test results 




0000 


0000 


02AD 


MEMSLOT 


.EQU 


$02AD 


Slot # for memory board if memory error 




0000 


0000 


02AE 


DSKRSLT 


.EQU 


$02AE 


Disk controller self-test status byte (0=no 


error) 


0000 


0000 


02AF 


SYSTYPE 


.EQU 


$02AF 


System type (0 = Lisa 1; 1, 2, 3 = Lisa 2) 


CHG029 


0000 


0000 


02B0 


KBDQ 


.EQU 


$02B0 


KEYBOARD QUEUE 




0000 


0000 


02C0 


QEND 


.EQU 


$02C0 


END OF Q 




0000 
















0000 






.INCLUDE RM248 


K.TEXT 












||.rif2s^^ 
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0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 


0000 


0002 


0480 


0004 




0004 


OOFE 


0006 


00F6 


0008 




0008 




0008 




0008 


OOFE 


OOOA 


0030 


oooc 


OOFE 


OOOE 


0030 


0010 


OOFE 


0012 


0030 


0014 


OOFE 


0016 


0030 


0018 


OOFE 


OOIA 


0030 


OOIC 


OOFE 


OOIE 


0030 


0020 


OOFE 


0022 


0030 


0024 


OOFE 


0026 


0030 


0028 


OOFE 


002A 


0030 


002C 


OOFE 


002E 


0030 


0030 




0030 




0030 




0030 




0030 




0030 





.IF 


KXTKKNAL = 


1 


.ENDC 






.PAGE 






.ABSOLUTE 




.PROC 


LISAROM,0 





.ORG 

; Reset vectors here to pick up SP and PC values 
BASE 



;niakes listing look nicer 



ORG 'ED AT BUT RUNS AT $OOFEOOOO 



.WORD 


$0000 


; initial 


SP 


.WORD 


STKBASE 






.WORD 


RCMSLCT 


; initial 


PC 


.WORD 


BEGIN 







Set up next locations for exception vectors 

BUS ERROR VECTOR 



BUSVCT .WORD 

.WORD 
ADRVCT .WORD 

.WORD 
ILLVCT .WORD 

.WORD 
DIVOVCT .WORD 

.WORD 
CHKVCT .WORD 

.WORD 
TRAPVCT .WORD 

.WORD 
PRIVCT .WORD 

.WORD 
TRCVCT .WORD 

.WORD 
LIOVCT .WORD 

.WORD 
LllVCT .WORD 

.WORD 



RCMSLCT 
EXCPERR 
RCMSLCT 
EXCPERR 
RC»1SLCT 
EXCPERR 
RC»1SLCT 
EXCPERR 
RC»1SLCT 
EXCPERR 
RC»1SLCT 
EXCPERR 
RCMSLCT 
EXCPERR 
RC»1SLCT 
EXCPERR 
RC»1SLCT 
EXCPERR 
RC»1SLCT 
EXCPERR 



ADDRESS ERROR 
ILLEGAL INSTRUCTION 
DIVIDE BY ZERO ERROR 
CHK INSTRUCTION 
TRAPV INSTRUCTION 
PRIVILEGE VIOLATION 
TRACE OPERATION 
OPCODE 1010 DETECTED 
OPCODE 1111 DETECTED 



Exception and interrupt vector handler for ROM - resets SP and 
tries a restart 
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0030 


3E7C 


0480 




0034 


4287 






0036 


6000 


015C 




003A 








003A 








003A 








003A 








003A 








003A 








003A 








003A 


21CF 


0290 




003E 








003E 


2 ICE 


01F8 




0042 


4E6E 






0044 


2 ICE 


OlFC 




0048 


3C7C 


01F8 




004C 


48E6 


ft'tC 




0050 


4E75 






0052 








0052 








0052 








0052 


53 45 


52 56 49 43 


45 


0059 


20 4E 


4F 44 45 




005E 


00 






005F 








005F 


00 






0060 








0060 








0060 








0060 


OOFE 






0062 


0030 






0064 


OOFE 






0066 


0030 






0068 


OOFE 






006A 


0030 






006C 


OOFE 






006E 


0030 






0070 


OOFE 






0072 


0030 






0074 


OOFE 






0076 


0030 






0078 


OOFE 






007A 


0030 






007C 


OOFE 






007E 


OOCA 






0080 








0080 









EXCPERR MOVEA 
CLR.L 
BRA 

.PAGE 



#STKBASE,SP 

D7 

RCMTST 



; reset stack ptr 

; clear error indicator 

;and restart diags 



CHG004 
CHG004 



Subroutine for saving registers and stack pointers 



SAVEREGS 



MOVE.L SP,SUPSTK 



SAVEREG2 



;save sup stack ptr 

;save other regs (that aren't reset) 



MOVE.L A6,A6SAV 

MOVE.L USP,A6 

MOVE.L A6,USPSAV 

MOVE #A6SAV,A6 ;set ptr for saving regs 

MOVEM.L D0-D7/A0-A5,-(A6) 

RTS 

; use spare bytes for message 

SVCMSG .ASCII 'SERVICE MODE' 

.BYTE 

.ORG $60 
; The next set of vectors cover spurious and autovector interrupts 

SPURIOUS INTERRUPT 



RMOOO 
RMOOO 



SPURVCT .WORD 

.WORD 
LVLIVCT .WORD 

.WORD 
LVL2VCT .WORD 

.WORD 
LVL3VCT .WORD 

.WORD 
LVL4VCT .WORD 

.WORD 
LVL5VCT .WORD 

.WORD 
LVL6VCT .WORD 

.WORD 
LVL7VCT .WORD 

.WORD 

.IF 



RCMSLCT 
EXCPERR 
RC»1SLCT 
EXCPERR 
RCMSLCT 
EXCPERR 
RC»1SLCT 
EXCPERR 
RC»1SLCT 
EXCPERR 
RC»1SLCT 
EXCPERR 
RC»1SLCT 
EXCPERR 
RC»1SLCT 
NMIEXCP 

EXTERNAL = 1 



INTERNAL I/O INTERRUPTS (DISK, VERT TRACE, ETC.) 

KEYBOARD INTERRUPT 

I/O SLOT 2 INTERRUPT 

I/O SLOT 1 

I/O SLOT 

RS-232 

NMI 

RMOIO 
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00801 
00801 
00801 
00801 
00801 
00801 
00801 
00801 
00801 
00801 
00841 
00881 
00881 
00881 
00881 
008CI 
008CI 
008CI 
00901 
00941 
00981 
00981 
00981 
009CI 
009EI 
OOAOI 
00A2I 
00A4I 
00A4I 
00A4I 
00A8I 
00 AC I 
00 AC I 
00 AC I 
OOBOI 
OOBOI 
OOBOI 
OOBOI 
00B4I 
00B8I 
OOBCI 
OOCOI 
OOCOI 
OOCOI 
00C4I 
00C8I 
00C8I 



.ENDC 

.PA(^ 
.ORG 



$80 



Jimp Table for calling by external routines 



JMPTBL 



4EFA 25D0 
4EFA 24AE 



4EFA 3664 



4EFA 052C 
4EFA lEDE 
4EFA ICEO 



4EFA 0E16 

4E71 

4E75 

4E71 

4E75 



4EFA 052A 
4EFA 08AC 



4EFA 11F2 



4EFA 157E 
4EFA 074C 
4EFA 0A3C 
4EFA 17CE 



4EFA 17BC 
4EFA 0B30 



JMP 


DORESET 


JMP 


INITMON 


.IF USERINT = 


.ELSE 




JMP 


C0NVRTD5 


.ENDC 




JMP 


WRTMMD 


JMP 


PROREAD 


JMP 


TWGREAD 


.IF DIAGS = 1 


JMP 


RAMTEST 


RTS 




RTS 




.ENDC 




JMP 


READMMU 


JMP 


COPSCMD 


.IF DIAGS = 1 


JMP 


READCLK 


.ELSE 




.ENDC 





JMP DSPDEC 

JMP C0NSET2 

JMP TONE 

JMP VFYCHKSM 

.IF R0M4K = 

JMP WRTSUM 

JMP RDSERN 
.ENDC 



;go to restart point 
; jimp to RCM Monitor 



; convert row ptr and display message 



;write to set of MMU registers 
; Profile read a block routine 
; Twiggy read a sector routine 



basic memory test 



RMOOO 



CHG015 
CHG015 
CHG015 
CHG015 



;read MMU registers 
;Send COPS coimiand 



;Read clock setting 



; display hex error code in decimal 
;for setting contrast 
;to beep speaker 
; verify checksum 



; rewrite parameter memory 
;go read system serial # 



CHG017 
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00C8I 
00C8I 
OOCAI 
OOCAI 
OOCAI 
OOCAI 
OOCAI 
OOCAI 
OOCAI 
OOCAI 
OOCAI 
OOCAI 
OOCAI 
OODOI 
00D8I 
OODAI 
00E2I 
00E8I 
OOEEI 
00F4I 
00F6I 
00F6I 
00F6I 
00F6I 
00F6I 
00F6I 
00F6I 
00F6I 
00F6I 
OOFCI 
01001 
01041 
01061 
OIOEI 
01101 
01101 
01101 
01101 
01181 
01201 
01281 
012EI 
01341 
01341 
01381 
013CI 
01401 



60FE 



********************* Loop point for ROM test failure ******************************** 
SPIN BRA.S SPIN ;hang system CHG007 

-************************************************************************************* 

.IF EXTERNAL = 1 
.ENDC 



NMI Exception Handler 



4239 OOFC E012 
0839 0001 OOFC F801 
6614 

31F9 OOFC FOOO OlAA 
4A39 OOFC EOlC 
4A39 OOFC EOIE 
4A39 OOFC EOlO 
4E73 



NMIEXCP CLR.B 


SETUP 


BTST 


#1,STATREG 


BNE.S 


@1 


MOVE 


MEALTCH , ADRLTCH 


TST.B 


PAROFF 


TST.B 


PARON 


@1 TST.B 


SETUPON 


RTE 





enable memory access 

parity error? 

skip if not to ignore 

save address if yes 

and toggle to clear error bit 

return to SETUP state 



RMOIO 



RMOIO 
RMOIO 
RMOIO 
RMOIO 
RMOIO 
RMOIO 
RMOIO 
RMOIO 



.PA(S 



First do "warm-start" no reset check - scan I/O MMU regs to see if set up 



BEGIN 



3039 OOFC 8000 

0240 OFFF 

0C40 0901 

664C 

0279 OFFF OOFC 8008 

6642 



33FC 0700 0000 8000 
33FC 0901 OOFC 8000 
33FC OFOO OOFE 8000 
4279 OOFE 8008 
4239 OOFC E012 



.IF NORESET = 1 

MOVE MMU126L,D0 ;check reg 126 for special I/O space 

ANDI #$OFFF,DO ; ignore don't care bits 

CMPI #IOLMT2,D0 ;for no reset, 126L = $x901 (x = random value) 

BNE.S BEGIN2 ;skip if not set up 

ANDI #$0FFF,MMU126B ;else also check 126B = $x000 

BNE . S BEGIN2 

Check OK - set MMU for ROM access and change SETUP before vectoring 

MOVE #MEMLMT,MMU0L ;set low memory for r/w (to save regs, etc.) 

MOVE #IOLMT2,MMU126L ;set for I/O space access (reset value) 

MOVE #SPLMT,MMU127L ;set access for ROM space 

MOVE #0,MMU127B 



21CF 0290 
3E7C 0480 
6100 FFOO 



CLR.B SETUP 

MOVE.L SP,SUPSTK 

MOVEA #STKBASE , SP 

BSR.S SAVEREG2 



; enable memory access 

;save supervisor stack ptr 
;move stack pointer for ROM use 
;save other registers 
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01401 
01401 
01401 
01401 
01441 
01481 
01481 
014AI 
014CI 
014EI 
01521 
01521 
01521 
01521 
01521 
01521 
01521 
01521 
01541 
015AI 
015EI 
01621 
01641 
016CI 
016EI 
016EI 
016EI 
016EI 
01721 
01741 
017CI 
01821 
018AI 
018AI 
018CI 
018CI 
018CI 
018CI 
01901 
01941 
01941 
01941 
01941 
01941 
01941 
01941 
01941 



Restore RCM Monitor environment 



49FA 0006 
6000 06B4 

95CA 
4280 
97CB 
6000 23F4 





BSR4 


CONSET 


# 


LEA 


@1,A4 


# 


BRA 


CONSET 


#@1 








SUBA.L 


A2,A2 




CLR.L 


DO 




SOBA.L 


A3,A3 




BRA 


INITl 



;go set default contrast 



set for no icons 
error codes 
or messages 
exit directly to monitor (avoid resaving regs) 



.ENDC 



Do second warm-start check to see if contrast should be reset 



4287 

3039 OOFE 8000 

0240 OFFF 

0C40 OFOO 

6630 

0279 OFFF OOFE 8008 

6626 



08C7 OOIE 

7000 

33FC 0900 OOFC 8000 

33C0 OOFC 8008 

33FC OFOO OOFE 8000 



BEGIN2 CLR.L D7 

MOVE MMU127L,D0 

ANDI #$OFFF,DO 

CMPI #SPLMT,DO 

BNE . S RCMTST 



; clear for error use 

; check reg 127 for RCM space 

; ignore don ' t care bits 

;expect 127L = $xFOO (x = random value) 

;skip if not 



ANDI #$0FFF,MMU127B ;else check if 127B = $xOOO 
BNE . S RCMTST 

Check OK - set MMU for I/O and RCM access and go set contrast 



4E70 



49FA 0006 
6000 066E 



BSET 

MOVEQ 

MOVE 

MOVE 

MOVE 

BEGIN3 RESET 



#WRMSTRT,D7 ;set warm start indicator 

#0,D0 ; clear for use 

#IOLMT,MMU126L ;set access for I/O space 

D0,MMU126B 

#SPLMT,MMU127L ;set access for ROM space 



;ensure clean I/O state for "warm-start" 
;and go disable contrast 



.IF NEWLISA = 1 
BSR4 CONOFF 

# LEA @1,A4 

# BRA CONOFF 
#@1 

.ELSE 
.ENDC 



.PAGE 
; Start diagnostics - do ROM checksum test first; expected result = 
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01941 
01941 
01941 
01941 
01941 
01941 
01961 
019AI 
019EI 
OIAOI 
01A2I 
01A4I 
01A6I 
01A8I 
OlACI 
OlAEI 
OIBOI 
OIBOI 
OIBOI 
OIBOI 
OIBOI 
OIBOI 
OIBOI 
OIBOI 
OIBOI 
OIBOI 
OIBOI 
OIBOI 
OIBOI 
OIBOI 
OIBOI 
OIBOI 
OIBOI 
OIBOI 
OIBOI 
OIBOI 
01B4I 
01B8I 
01B8I 
01B8I 
OIBCI 
OICOI 
OICOI 
01C2I 
01C2I 
01C2I 
01C6I 



RCMTST 



.IF DIAGS = 1 



4280 

41FA FE68 

43FA 3E62 

D058 

E358 

B3C8 

66F8 

D058 

6600 

4A87 

6BE4 



DOSOM 



FFIE 



CLR.L 


DO 


LEA 


BASE,AO 


LEA 


LAST,A1 


ADD 


(AO)+,DO 


ROL 


#1,D0 


CMPA.L 


A0,A1 


BNE.S 


DOSUM 


ADD 


(AO)+,DO 


BNE 


SPIN 


TST.L 


D7 


BMI.S 


RCMTST 


.ENDC 
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; clear for checksvim use 
;init ROM address ptrs 

;read location and add to svun 

; rotate to catch multiple bit errors 

;loop until done 

;add checksvim word 
;loop if error 
;in loop mode? 
; restart test if yes 



CHGOOV 



Next do read/write and address test of MMU supervisor regs 
Register Usage (by this routine and/or its siabroutines) : 



AO = MMU reg pointer 
Al = last MMU limit reg addr 
A2 = MMU address increment 
A3 = last MMU base reg addr 
A4 = used for return address 
A5 = MMU address of last error 
A6 = used for return address 
A7 = stack pointer 



DO = test pattern 

Dl = contents read from MMU reg 

D2 = OR mask of results 

D3 = pattern expected at last error 

D4 = final value for MMU reg 

D5 = unused 

D6 = unused 

D7 = error indicator (0 = R/W error) 



49FA 0006 
6000 0060 



4DFA 0006 
6000 006C 



MMUTST 



# 
# 

#@1 



6616 



49FA 0004 
604E 



# 
# 

#@1 



.IF 
BSR4 
LEA 
BRA 

BSR6 
LEA 
BRA 



DIAGS = 1 

MMUINIT 
@1,A4 
MMUINIT 

MMURW 

@1,A6 
MMURW 



BNE.S MMUERR 

BSRS4 MMUINIT 
LEA @1,A4 
BRA.S MMUINIT 



; initialize test variables 

;and go do read/write test 

; abort if error 
; reinitialize 
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01C8 






01C8 






01C8 


4DFA 


0006 


OICC 


6000 


00A2 


OlDO 






OlDO 


6604 




01D2 


6000 


00F2 


01D6 


4647 




01D8 






01D8 






01D8 






01D8 






01D8 






01D8 






01D8 






01D8 






01D8 


4A47 




OlDA 


6702 




OlDC 


4E70 




OlDE 


4E70 




OlEO 






OlEO 






OlEO 






OlEO 


207C 


0002 8000 


01E6 


7201 




01E8 


7407 




OlEA 






OlEA 


49FA 


0004 


OlEE 


6010 




OlFO 






OlFO 


207C 


0002 8008 


01F6 


7405 




01F8 






01F8 


49FA 


0004 


OlFC 


6002 




OlFE 






OlFE 






OlFE 


60D8 




0200 






0200 






0200 


2008 




0202 


3081 




0204 


3610 




0206 


E349 




0208 


4840 




020A 


E348 




020C 


4840 





#@1 





BSR6 


MMUACHK 


# 


LEA 


@1,A6 


# 


BRA 


MMUACHK 


#@1 








BNE.S 


@2 




BRA 


SETMMD 


@2 


NOT 


D7 



;and do address test 



;skip if error 

;else go do initial MMU setup 

;set address error indicator 



.PAGE 



The following code is used to toggle every address and data line 
going to the MMU if an error in the MMU context tests is found. 
Reset signals indicate read/write or addressing error. 



MMUERR TST 


D7 


BEQ.S 


@2 


RESET 




@2 RESET 





; check error type 

;two reset signals for address error 
;only one for R/W error 



Toggle every data and address bit 



MMULP 


MOVE.L 


#$00028000, AO 




MOVEQ 


#1,D1 




MOVEQ 


#7,D2 




BSRS4 


TSTLOOP 


# 


LEA 


@1,A4 


# 


BRA.S 


TSTLOOP 


#@1 








MOVE.L 


#$00028008, AO 




MOVEQ 


#5,D2 




BSRS4 


TSTLOOP 


# 


LEA 


@1,A4 


# 


BRA.S 


TSTLOOP 


#@1 







;set MMU limit reg start address 
;and starting data pattern 
;and loop count 
;go toggle for limit regs 



;set MMU base reg start address 
;and loop count 
;go test base regs 



BRA.S MMUERR ;and loop indefinitely 

Subroutine to do reg testing 



TSTLOOP MOVE.L 


AO,DO 


;save starting address 


REGTST MOVE 


D1,(A0) 


;do write 


MOVE 


(AO) ,D3 


;then read 


LSL 


#1,D1 


; update pattern 


SWAP 


DO 


;get address 


LSL 


#1,D0 


; update and restore 


SWAP 


DO 
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020E 


2040 




0210 


5342 




0212 


66EE 




0214 






0214 


4ED4 




0216 






0216 






0216 






0216 






0216 






0216 






0216 


303C 


A55A 


021A 


7200 




021C 


7400 




021E 


247C 


0002 0000 


0224 


007C 


0710 


0228 






0228 


4ED4 




022A 






022A 






022A 






022A 






022A 






022A 






022A 






022A 


207C 


0000 8000 


0230 


227C 


OOFE 8000 


0236 


267C 


OOFE 8008 


023C 






023C 






023C 


49FA 


0006 


0240 


6000 


0072 


0244 






0244 


4640 




0246 






0246 


49FA 


0004 


024A 


6068 




024C 


4640 




024E 






024E 


49FA 


0004 


0252 


6060 




0254 






0254 


E350 




0256 


B3C8 




0258 


6704 




025A 


DICA 




025C 


60DE 





MOVE.L D0,A0 

SUBQ #1,D2 

BNE . S REGTST 
RTS4 

JMP (A4) 
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;loop until done 
;exit 



Subroutine to do initial setup for MMU testing 



MMDINIT MOVE 


#PATRN2,D0 


MOVEQ 


#0,D1 


MOVEQ 


#0,D2 


MOVE.L 


#ADR128K,A2 


ORI 


#$0710, SR 


RTS4 




\ JMP 


(A4) 



;set test pattern 

; clear for result/error use 

; use MOVEQ for speed 

;set up increment value 

;set extend bit and disable interrupts 
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Subroutine to do MMU Read/Write Test for all registers in one context. 
Zero bit set in CCR if no errors. 



MMURN MOVE.L #MMUSADRL,A0 
MOVE.L #MMUEADRL,A1 
MOVE.L #MMUEADRB,A3 



RWCHKl 


BSR4 


CHKRW 


# 


LEA 


@1,A4 


# 


BRA 


CHKRW 


#@1 








NOT 


DO 




BSRS4 


CHKRW 


# 


LEA 


@1,A4 


# 


BRA.S 


CHKRW 


RWCHK2 


NOT 


DO 




BSRS4 


CHKRW 


# 


LEA 


@1,A4 


# 


BRA.S 


CHKRW 


#@1 






RWCHK3 


ROXL 


#1,D0 




CMPA.L 


A0,A1 




BEQ.S 


CHKBASE 




ADDA.L 


A2,A0 




BRA.S 


RWCHKl 



SET MMU LIMIT START ADDR 
SET MMU LIMIT END ADDR 
SET MMU BASE END ADDR 

;G0 DO READ /WRITE CHECK 



; INVERT FOR NEXT PASS 
;G0 DO AGAIN 



; INVERT BACK TO ORIGINAL PATTERN 
;ONE MORE TIME 



;SET UP NEW PATTERN 

; CHECK IF DONE 

;IF YES GO CHECK FOR BASE REG TESTING 

;ELSE BUMP MMU ADDR 
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025E 








025E 


B7C8 






0260 


670A 






0262 


207C 


0000 


8008 


0268 


224B 






026A 


60D0 






02 6C 








02 6C 


4A42 






02 6E 








02 6E 


4ED6 






0270 








0270 








0270 








0270 








0270 








0270 








0270 








0270 


207C 


0000 


8000 


0276 


227C 


OOFE 


8000 


027C 


267C 


OOFE 


8008 


0282 


383C 


OCOO 




0286 








0286 


3210 






0288 


B141 






028A 


0241 


OFFF 




028E 


6620 






0290 








0290 


3084 






0292 


E350 






0294 


B3C8 






0296 


6704 






0298 


DICA 






02 9A 


60EA 






02 9C 








02 9C 


B7C8 






02 9E 


670C 






02A0 


207C 


0000 


8008 


02A6 


224B 






02A8 


7800 






02AA 


60DA 






02AC 








02AC 


4A42 






02AE 








02AE 


4ED6 






02B0 








02B0 








02B0 


8441 







CHKBASE CMPA.L A0,A3 
BEQ . S @2 

MOVE . L #MMUSADRB , AO 
MOVEA.L A3,A1 
BRA.S RWCHKl 



@2 



TST 
RTS6 
JMP 

.PAGE 



D2 



;DONE WITH BASE? 

;EXIT IF YES 

;ELSE SET STARTING BASE ADDRESS 

; AND ENDING ADDRESS 

;G0 CHECK BASE REGS 

;cdieck for errors 
;and exit test 



(A6) 



Subroutine to do MMU address check 

Leaves limit registers with invalid page value, base regs with 



MMUACHK MOVE.L #MMUSADRL,A0 

MOVE.L #MMUEADRL,A1 

MOVE.L #MMUEADRB,A3 

MOVE #INVPAG,D4 



ACHKl 


MOVE 


(AO) ,D1 




EOR 


D0,D1 




ANDI 


#$0FFF,D1 




BNE.S 


MADRERR 


MMUSET 


MOVE 


D4, (AO) 




ROXL 


#1,D0 




CMPA.L 


A0,A1 




BEQ.S 


ACHK2 




ADDA.L 


A2,A0 




BRA.S 


ACHKl 


ACHK2 


CMPA.L 


A0,A3 




BEQ.S 


@2 




MOVE.L 


#MMUSADRB,A0 




MOVEA.L 


A3,A1 




MOVEQ 


#0,D4 




BRA.S 


ACHKl 


@2 


TST 
RTS6 


D2 


\ 


JMP 


(A6) 


; Handle MMU address error 



SET MMU LIMIT START ADDR 

SET MMU LIMIT END ADDR 

SET MMU BASE END ADDR 

SET FINAL VALUE FOR LIMIT REGS 

READ REG 

CHECK IF EXPECTED 
MASK DON'T CARES 
EXIT IF ERROR 

;SET FINAL REG VALUE 

;SET UP NEW PATTERN 

; CHECK IF DONE 

;IF YES GO CHECK FOR BASE REG TESTING 

;ELSE BUMP MMU ADDR 



DONE WITH BASE? 

EXIT IF YES 

ELSE SET STARTING BASE ADDRESS 

AND ENDING ADDRESS 
SET FINAL VALUE FOR BASE REGS 
GO CHECK BASE REGS 



MADRERR OR 



D1,D2 



; check for errors 
;and exit test 



;save error bits 
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02B2 


60DC 


02B4 




02B4 




02B4 




02B4 




02B4 




02B4 




02B4 




02B4 




02B4 


3080 


02B6 


3210 


02B8 


B141 


02BA 


0241 OFFF 


02BE 


6602 


02C0 




02C0 


4ED4 


02C2 




02C2 




02C2 




02C2 


8441 


02C4 




02C4 


4ED4 


02C6 




02C6 




02C6 




02C6 




02C6 




02C6 




02C6 




02C6 




02C6 




02C6 


207C 0000 8008 


02CC 


7000 


02CE 


7200 


02D0 


3802 


02D2 


7400 


02D4 


7C00 


02D6 


247C 0002 0000 


02DC 


267C 0000 0100 


02E2 


7C10 


02E4 




02E4 


49FA 0004 


02E8 


60CA 


02EA 




02EA 


D08B 


02EC 


DICA 


02EE 


5346 



BRA.S MMUSET 

.ELSE 
.ENDC 



and continue test 



Subroutine to do MMU actual read/write 



CHKPW 



MOVE 


DO, (AO) 


;do write 


MOVE 


(AO) ,D1 


;read back 


EOR 


D0,D1 


;cortpare 


ANDI 


#$0FFF,D1 


;itiask don't cares 


BNE.S 


RWERR 


;skip if error 


RTS4 




;else return 


JMP 


(A4) 





Error collection 



RNERR 



OR 


D1,D2 


;save error bits 


RTS4 




;and return 


JMP 


(A4) 
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Now do setup of MMU supervisor registers for RAM and I/O space access. 
Also do read check after write and abort if error. 



Do origin registers first 



SETMMU 


MOVE.L 


#MMUSADRB,AO 


GET MMU PTR 




MOVEQ 


#0,D0 


clear for use 




MOVEQ 


#0,D1 






MOVE 


D2,D4 


SAVE PREVIOUS RESUL' 




MOVEQ 


#0,D2 






MOVEQ 


#0,D6 






MOVE.L 


#ADR128K,A2 


ADDRESS INCREMENT 




MOVE.L 


#PAG128K,A3 


SET UP BASE ADDRESS 




MOVEQ 


#16, D6 


LOOP COUNT 


LOADORG 


BSRS4 


CHKRW 


DO WRITE/READ CHECK 


# 


LEA 


@1,A4 




# 


BRA.S 


CHKRW 




#@1 










ADD.L 


A3, DO 


COMPUTE NEXT MEMORY 




ADDA.L 


A2,A0 


BUMP MMU ORG PTR 




SUBQ 


#1,D6 





INCREMENT 
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02F0 


66F2 




02F2 






02F2 






02F2 






02F2 


207C 


OOFC 8008 


02F8 


7000 




02FA 






02FA 


49FA 


0004 


02FE 


60B4 




0300 






0300 


DICA 




0302 






0302 


49FA 


0004 


0306 


60AC 




0308 






0308 






0308 






0308 






0308 


207C 


0000 8000 


030E 


303C 


0700 


0312 


7200 




0314 


7C10 




0316 






0316 


49FA 


0004 


031A 


6098 




031C 






031C 


DICA 




031E 


5346 




0320 


66F4 




0322 






0322 






0322 






0322 


207C 


OOFC 8000 


0328 


303C 


0900 


032C 






032C 


49FA 


0004 


0330 


6082 




0332 






0332 


DICA 




0334 


303C 


OFOO 


0338 






0338 


49FA 


0006 


033C 


6000 


FF76 


0340 






0340 






0340 






0340 







BNE . S LOADOBG 



;L(X)P UNTIL DONE 



Set base for I/O and special I/O space 





MOVEA.L 


#MMU126B,A0 




MOVEQ 


#0,D0 




BSRS4 


CHKRW 


# 


LEA 


@1,A4 


# 


BRA.S 


CHKRW 


#@1 








ADDA.L 


A2,A0 




BSRS4 


CHKRW 


# 


LEA 


@1,A4 


# 


BRA.S 


CHKRW 


#@1 







;PT TO ORG REG 126 
;set data value 



;BUMP PTR TO REG 127 



; Now do limit registers 

MOVEA.L #MMUSADRL,AO 





MOVE 


#MEMLMT,DO 




MOVEQ 


#0,D1 




MOVEQ 


#16, D6 


LOADLMT 


BSRS4 


CHKRW 


# 


LEA 


@1,A4 


# 


BRA.S 


CHKRW 


#@1 








ADDA.L 


A2,A0 




SUBQ 


#1,D6 




BNE.S 


LOADLMT 



GET MMU LIMIT REG PTR 

LIMIT FOR 12 8K MEMORY SEOIENTS 

use as working reg 

LOOP COUNT 



;BUMP MMU PTR 
;LOOP UNITL DONE 



Now do MMU limit reg setup for I/O and Special I/O access 



# 
# 

#@1 



# 
# 
#@1 



MOVEA.L #MMU126L,A0 
MOVE #IOLMT,D0 
BSRS4 CHKRW 
LEA @1,A4 
BRA.S CHKRW 

ADDA.L A2,A0 
MOVE #SPLMT,DO 
BSRS4 CHKRW 
LEA @1,A4 
BRA.S CHKRW 



;PT TO LMT REG 126 

;SET FOR I/O SPACE, FULL ACCESS 



;BUMP PTR TO REG 127 

;SET FOR SPECIAL I/O, FULL ACCESS 



.IF DIAGS = 1 
Check if errors detected 
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0340 


4A42 




0342 


6600 


FE94 


0346 


3404 




0348 






0348 






0348 






0348 






0348 






0348 






0348 






0348 






0348 






0348 


7C00 




034A 






034A 


49FA 


0006 


034E 


6000 


FEC6 


0352 






0352 






0352 


4A39 


OOFC EOOA 


0358 


7C01 




035A 






035A 






035A 


49FA 


0006 


035E 


6000 


OOBO 


0362 


6700 


0090 


0366 






0366 






0366 


4DFA 


0006 


036A 


6000 


FEBE 


036E 


6600 


0084 


0372 






0372 


4A39 


OOFC EOOE 


0378 


7C03 




037A 






037A 






037A 


49FA 


0006 


037E 


6000 


0090 


0382 






0382 


6770 




0384 






0384 






0384 


4DFA 


0006 


0388 


6000 


FEAO 


038C 






038C 


6666 




038E 






038E 


4A39 


OOFC E008 



TST D2 

BNE MMUEBR 

MOVE D4,D2 
.ENDC 
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; CHECK ERROR MASK 

;ABORT IF ERROR 

;ELSE RESTORE PREVIOUS RESULTS 



Conplete testing of MMU 
Uses reg D6 for context 



by checking other context regs . 
indicator . 





.IF 


DIAGS = 1 


MMUTST2 


MOVEQ 


#0,D6 




BSR4 


MMUINIT 


# 


LEA 


@1,A4 


# 


BRA 


MMUINIT 


#@1 








TST.B 


SEGION 




MOVEQ 


#1,D6 




BSR4 


CONCHK 


# 


LEA 


@1,A4 


# 


BRA 


CONCHK 




BEQ 


MMUERR2 




BSR6 


MMORW 


# 


LEA 


@1,A6 


# 


BRA 


MMURW 




BNE 


MMUERR2 




TST.B 


SEG20N 




MOVEQ 


#3,D6 




BSR4 


CONCHK 


# 


LEA 


@1,A4 


# 


BRA 


CONCHK 


#@1 








BEQ.S 


MMUERR2 




BSR6 


MMURW 


# 


LEA 


@1,A6 


# 


BRA 


MMURW 


#@1 








BNE.S 


MMUERR2 




TST.B 


SEGIOFF 



;FOR CONTEXT INDICATOR 
; REINITIALIZE FOR TESTING 



;SET FOR CONTEXT 1 
;SET CONTEXT INDICATOR 

; CHECK IF MMU CONTEXT CHANGED 



;EXIT IF NO - SEG BIT ERROR 
;ELSE GO DO R/W TEST 

;exit if error 
;SET FOR CONTEXT 3 

; CHECK IF MMU CONTEXT CHANGED 

;EXIT IF NO - SEG BIT ERROR 
;ELSE GO TEST 

;exit if error 
;SET FOR CONTEXT 2 
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0394 


7C02 






0396 








0396 








0396 


49FA 


0004 




039A 


6074 






039C 








039C 


675C 






039E 








039E 








039E 


4DFA 


0006 




03A2 


6000 


FE86 




03A6 








03A6 


6652 






03A8 








03A8 


4A39 


OOFC 


EOOC 


03AE 








03AE 








03AE 








03AE 








03AE 


49FA 


0006 




03B2 


6000 


FE62 




03B6 








03B6 








03B6 


4A39 


OOFC 


EOOA 


03BC 


7C01 






03BE 








03BE 


4DFA 


0006 




03C2 


6000 


FEAC 




03C6 








03C6 


662C 






03C8 


4A39 


OOFC 


EOOE 


03CE 


7C03 






03D0 








03D0 


4DFA 


0006 




03D4 


6000 


FE9A 




03D8 


661A 






03DA 








03DA 


4A39 


OOFC 


E008 


03E0 


7C02 






03E2 








03E2 


4DFA 


0006 




03E6 


6000 


FE88 




03EA 








03EA 


660E 






03EC 








03EC 


4A39 


OOFC 


EOOC 


03F2 


6014 







# 
# 

#@1 



# 

# 
#@1 



MOVEQ #2,D6 

BSRS4 CONCHK 
LEA @1,A4 
BRA.S CONCHK 

BEQ . S MMUEBR3 

BSRS6 MMURW 
LEA @1,A6 
BRA.S MMURW 

BNE.S MMUERR3 

TST.B SEG20FF 



; CHECK IF MMU CONTEXT CHANGED 

;EXIT IF NO - SEG BIT ERROR 
;ELSE GO TEST 

;exit if error 

; RESET FOR CONTEXT REGS 



Now do MMU addressing check of remaining context regs 

; REINITIALIZE 



;SET FOR CONTEXT 1 
;TEST CONTEXT 1 





BSR4 


MMUINIT 


# 


LEA 


@1,A4 


# 


BRA 


MMUINIT 


#@1 








TST.B 


SEGION 




MOVEQ 


#1,D6 




BSR6 


MMUACHK 


# 


LEA 


@1,A6 


# 


BRA 


MMUACHK 


#@1 








BNE.S 


MMUERR2 




TST.B 


SEG20N 




MOVEQ 


#3,D6 




BSR6 


MMUACHK 


# 


LEA 


@1,A6 


# 


BRA 


MMUACHK 




BNE.S 


MMUERR2 




TST.B 


SEGIOFF 




MOVEQ 


#2,D6 




BSR6 


MMUACHK 


# 


LEA 


@1,A6 


# 


BRA 


MMUACHK 


#@1 








BNE.S 


MMUERR3 




TST.B 


SEG20FF 




BRA.S 


MMULPCHK 



;exit if error 
;TEST CONTEXT 3 



;exit if error 
;TEST CONTEXT 2 



;exit if error 

; RESET TO CONTEXT 
;go check for loop mode 
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03F4I 
03F4I 
03FAI 
04001 
04001 
04021 
04041 
04081 
04081 
040AI 
040EI 
04101 
04101 
04101 
04101 
04101 
04101 
04101 
04101 
04161 
041AI 
041EI 
04201 
04201 
04261 
042AI 
042EI 
04301 
04301 
04361 
043AI 
043EI 
043EI 
043EI 
04401 
04401 
04401 
04401 
04401 
04401 
04401 
04401 
04401 
04401 
04401 
04401 
04461 



4A39 OOFC E008 
4A39 OOFC EOOC 

E85E 
8446 
08C7 0000 

4A87 

6B00 FDA4 
6030 



MMUERE^ TST.B 


SEGIOFF 


MMUERR3 TST.B 


SEG20FF 


ROR 


#4,D6 


OR 


D6,D2 


BSET 


#MMU,D7 


MMULPCHK 




TST.L 


D7 


BMI.S 


MMOTST 


BRA.S 


START 



; ENSURE RESET FOR CONTEXT 



;get context indicator 

;save with error bits (if any) 

;set error indicator 

;in loop mode? 

; restart full MMU test if yes 

;else continue to next test 



.FA(S 



Subroutine to verify context change made - does comparison to ensure 
destruction of context mapping avoided. Zero bit set if error. 



3839 OOFC 8000 
0244 OFFF 
0C44 0900 
661E 

3839 OOFE 8000 
0244 OFFF 
0C44 OFOO 
660E 

3839 0000 8000 
0244 OFFF 
0C44 0700 



4ED4 



CONCHK MOVE MMU126L,D4 

ANDI #$0FFF,D4 

CMPI #I0LMT,D4 

BNE . S CONOR 

MOVE MMU127L,D4 

ANDI #$0FFF,D4 

CMPI #SPLMT,D4 

BNE . S CONOR 



CONOR 



MOVE 


MMU0L,D4 


ANDI 


#$0FFF,D4 


CMPI 


#MEMLMT,D4 


RTS4 




JMP 


(A4) 


.ENDC 




.IF R0M4R = 


.IF DIAGS = 


.ENDC 




.ENDC 




.PAGE 





; check limit reg for I/O space 
;mask don't care 
; still in same context? 
;exit if not 

;else also check reg for RCM space 
;mask don't care 
;also set up? 
;exit if not 

;else do final check on reg for memory access 

; return with match results to caller 



: {DIAGS} 
: {R0M4R} 



Reset SETUP bit to enable system access and continue with testing 



4239 OOFC E012 



START CLR.B 



SETUP 



;TURN OFF SETUP TO ENTER MAP LAND . . . 
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04461 
04461 
04461 
04461 
04461 
04461 
04461 
04461 
04461 
04461 
04461 
04461 
04481 
044AI 
044CI 
044EI 
04501 
04521 
04541 
045AI 
045CI 
045EI 
045EI 
045EI 
04621 
04661 
04661 
04681 
046AI 
046CI 
046EI 
04701 
04721 
04741 
047AI 
047CI 
047CI 
047CI 
047CI 
047CI 
04841 
04881 
048AI 
048CI 
04941 
049AI 
049CI 



Now do memory sizing - assumes 128K minimum memory increment 

Register usage: 

AG = minimum physical address DO 

Al = maximum physical address/scratch Dl 

A2 = unused D2 

A3 = next base memory addr to test D3 

A4 = return address D4 

A5 = unused D5 



scratch use 

incr for search address 

lanused 

inverted sizing test pattern 

sizing test pattern 

retry count 



A6 = saved error mask 



D6 = error mask 



4280 

2040 

2240 

2640 

2C40 

7202 

4841 

283C AA55 A55A 

3604 

4643 



49FA 0006 
6000 00A4 

4A46 
6752 
4646 
4A46 
6648 
D7C1 
224B 
B3FC 0020 0000 



66E2 



13FC OOAF OOFC E800 

303C 61A8 

5340 

66FC 

13FC 002F OOFC E800 

207C OOFC DD81 

4A10 



; setup regs for loop 



;size at 128K boundaries 

;set test patterns for sizing 
;use only lower word 
;and its inverse 

; first search for low memory address 



; memory found? 

;yes - go save address 

;else invert to check if all bits in error 

;if not, assvime memory error 

; and go save address 

;else birap search address 

;set as next working address 

;at max address? 

(■continue search if not 



No memory found - toggle LED and check for I/O board; if no I/O (bus error) 
diagnostics are restarted 



MEMSIZ 


CLR.L 


DO 




MOVE.L 


DO,AO 




MOVE.L 


D0,A1 




MOVE.L 


DO, A3 




MOVE.L 


D0,A6 




MOVEQ 


#2,D1 




SWAP 


Dl 




MOVE.L 


#PATRN,D4 




MOVE 


D4,D3 




NOT 


D3 


CHKLO 


BSR4 


CHKMEM 


# 


LEA 


@1,A4 


# 


BRA 


CHKMEM 


#@1 








TST 


D6 




BEQ.S 


SAVELO 




NOT 


D6 




TST 


D6 




BNE.S 


@3 


@2 


ADDA.L 


D1,A3 




MOVEA.L 


A3,A1 




CMPA.L 


#MAXADR,A1 




BNE.S 


CHKLO 



RMOOO 
RMOOO 
CHG002 



MOVE . B #DEFVID2 , VIDLTCH 

MOVE #TNTHSEC,D0 

@9 SUBQ #1,D0 

BNE.S @9 

MOVE . B #DEFVID , VIDLTCH 

MOVE . L #VIA1BASE , AO 

TST.B (AO) 



set LED on and default video latch setting (PAGE 2F) 
delay for . 1 sec 



reset LED and leave video latch setting 

check for I/O board 

bus error will occur if not installed 



CHG004 
CHG004 

CHG004 
CHG004 
CHG004 
CHG004 
CHG004 
CHG004 
CHG004 
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049C 






049C 






049C 






049C 


45FA 


0006 


04A0 


6000 


00B2 


04A4 






04A4 






04A4 


49FA 


0006 


04A8 


6000 


0350 


04AC 






04AC 


207C 


00 OF FFi'K 


04B2 


2084 




04B4 


2610 




04B6 


60FA 




04B8 






04B8 






04B8 


4646 




04BA 


3C46 




04BC 






04BC 


204B 




04BE 


BIFC 


0010 0000 


04C4 


6F06 




04C6 


207C 


0010 0000 


04CC 






04CC 






04CC 






04CC 






04CC 






04CC 






04CC 


244B 




04CE 






04CE 






04CE 


D7C1 




04D0 


224B 




04D2 


B3FC 


0020 0000 


04D8 


6728 




04DA 






04DA 






04DA 


2008 




04DC 


6604 




04DE 


B651 




04E0 


671E 




04E2 






04E2 






04E2 






04E2 






04E2 


49FA 


0004 



Go into read/write loop if no memory foiand but I/O installed 

;beep speaker for error 

;set contrast 





BSR2 


LOTONE 


# 


LEA 


@1,A2 


# 


BRA 


LOTONE 


#@1 








BSR4 


CONSET 


# 


LEA 


@1,A4 


# 


BRA 


CONSET 


#@1 







MOVE.L #ONEMEG-2,A0 

@4 MOVE.L D4,(A0) 

MOVE.L (AO) ,D3 

BRA.S @4 



set default memory address (to span both boards) 
go into read/write loop 



CHG002 
CHG002 
CHG002 



Low memory address found - save and continue 



@3 



NOT 
MOVE 



D6 
D6,A6 



SAVELO MOVEA.L A3,A0 

CMPA.L #ONEMEG,A0 
BLE.S @1 
MOVEA.L #ONEMEG,A0 

.PAGE 



;reinvert and 
; save results 

;save low address 

; check for min low address 

;skip if OK 

;else set at min value (one 512K board in slot 1) 



Now check for high memory address; search to max address of 2 meg 



@1 
TSTHI 



MOVEA.L A3,A2 



ADDA.L D1,A3 
MOVEA.L A3,A1 
CMPA.L #MAXADR,A1 
BEQ . S SIZXIT 



;save low address as first high address 



;conpute next 128K increment 
;use as new search value 
;done? 



Following patch added to detect for wraparound problem of old memory boards 
MOVE.L AO,DO ; check low address 

BNE.S CHKHI ;old memory boards start at address 

CMP (Al) ,D3 ;are we wrapped back to already tested location? 
BEQ . S WRAPXIT ; skip if yes (i.e. , old memory board) 

Else continue with check for high address 

CHKHI BSRS4 CHKMEM ;go do memory search 



RM015 
RM015 

RM015 



BSRS4 
LEA 



CHKMEM 
@1,A4 
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04E6 


6020 


04E8 




04E8 


4A46 


04EA 


670E 


04EC 


4646 


04EE 


4A46 


04F0 


67DC 


04F2 


300E 


04F4 


4646 


04F6 


8046 


04F8 


3C40 


04FA 




04FA 


244B 


04FC 


4253 


04FE 


60CE 


0500 




0500 


4251 


0502 




0502 


D5C1 


0504 


224A 


0506 


605E 


0508 




0508 




0508 




0508 




0508 




0508 




0508 




0508 


7A20 


050A 


4246 


050C 


3284 


050E 


3343 0002 


0512 


B851 


0514 


6706 


0516 


3011 


0518 


B940 


051A 


8C40 


051C 




051C 


B669 0002 


0520 


6708 


0522 


3029 0002 


0526 


B740 


0528 


8C40 


052A 




052A 


3344 0002 


052E 


3283 


0530 


B869 0002 



# 


BRA.S 


CHM 


#@1 








TST 


D6 




BEQ.S 


SAVEHI 




NOT 


D6 




TST 


D6 




BEQ.S 


TSTHI 




MOVE 


A6,D0 




NOT 


D6 




OR 


D6,D0 




MOVE 


D0,A6 


SAVEHI 


MOVEA.L 


A3,A2 




CLR 


(A3) 




BRA.S 


TSTHI 


WRAPXIT 


CLR 


(Al) 


SIZXIT 


ADDA.L 


D1,A2 




MOVEA.L 


A2,A1 




BRA.S 


RSTMMU 



;any errors? 

;skip if not to save address 

;else invert to see if all bits in error 

;skip if yes to ignore address 

;else get previous results 

;reinvert and 

; add new results 

;save for later 

;save as new potential high address 
; clear test pattern 
; and continue loop 

; clear test pattern 

;high address = last valid addr + 128K 
;save for later use 
; continue on 



RM015 



RM015 



.PAGE 



Subroutine to do memory check for sizing. If error, tries successive 
memory locations up to retry count (D5) . Returns with error mask in D6. 



set retry count in case of errors 

clear for error mask 

check if true data stores 

and try coitplement to next location 

continue if yes 
else get error bits 

and save them 

check second location 
exit if data correct 
else read again 
get error bits 
save in error mask 

now try in reverse order 

check second location 



CHKMEM 


MOVEQ 


#RETRYCNT,D5 




CLR 


D6 


@1 


MOVE 


D4, (Al) 




MOVE 


D3,2(A1) 




CMP 


(Al) ,D4 




BEQ.S 


@2 




MOVE 


(Al) ,D0 




EOR 


D4,D0 




OR 


D0,D6 


@2 


CMP 


2(A1) ,D3 




BEQ.S 


@3 




MOVE 


2(A1) ,D0 




EOR 


D3,D0 




OR 


D0,D6 


@3 


MOVE 


D4,2(A1) 




MOVE 


D3,(A1) 




CMP 


2(A1) ,D4 
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0534 


6708 


0536 


3029 0002 


053A 


B940 


053C 


8C40 


053E 




053E 


B651 


0540 


6706 


0542 


3011 


0544 


B740 


0546 


8C40 


0548 




0548 


4A46 


054A 


6706 


054C 


4A99 


054E 


5345 


0550 


66BA 


0552 




0552 




0552 


4ED4 


0554 




0554 




0554 




0554 




0554 




0554 




0554 


7060 


0556 


323C OOFA 


055A 


7404 


055C 




055C 


49FA 0006 


0560 


6000 05A4 


0564 




0564 




0564 


4ED2 


0566 




0566 




0566 




0566 




0566 




0566 




0566 




0566 




0566 




0566 




0566 




0566 




0566 





@4 



@5 



@6 



BEQ.S 


@4 


MOVE 


2 (Al) ,D0 


EOR 


D4,D0 


OR 


D0,D6 


CMP 


(Al) ,D3 


BEQ.S 


@5 


MOVE 


(Al) ,D0 


EOR 


D3,D0 


OR 


D0,D6 


TST 


D6 


BEQ.S 


@6 


TST.L 


(Al) + 


SUBQ 


#1,D5 


BNE.S 


@1 


RTS4 




JMP 


(A4) 



skip if OK 

else save error bits 



and check first 
continue if yes 
else get error bits 

and save them 

any errors? 

skip if no 

else buitp search address to next pair 

deer retry count 

continue until count exhausted 

return with results in D6 



.PAGE 



Subroutine to set parms for lo tone from speaker 



LOTONE 


MOVEQ 


#$60, DO 




MOVE 


#250, Dl 




MOVEQ 


#4,D2 




BSR4 


T0NE2 


# 


LEA 


@1,A4 


# 


BRA 


T0NE2 


#@1 
# 


RTS2 
JMP 


(A2) 



;set frequency 
;and duration 
;and volume (medivmi) 
;go do tone 



.PAGE 



Now reset MMU regs according to low and high physical address 
Remainder of MMU regs in context are set to invalid page 



Register Usage: 

AO - low physical address 

Al - high physical address 

A2 - MMU base reg ptr 

A3 - MMU limit reg ptr 

A4 - used for return address 



DO - scratch/value stored in base reg 

Dl - value stored in limit reg 

D2 - unused 

D3 - holds base reg page incr value 

D4 - used for count of regs to set 



Computer Boot ROM 2.48 Listing • 54 of 265 



05661 
05661 
05661 
05661 
05661 
05661 
05661 
05661 
05681 
056AI 
056CI 
056EI 
05701 
05701 
05701 
05701 
05761 
057CI 
05821 
05881 
058AI 
058CI 
05901 
05901 
05901 
05901 
05901 
05941 
05961 
05961 
05981 
059AI 
059CI 
059EI 
059EI 
059EI 
059EI 
05A0I 
05A4I 
05A4I 
05A8I 
05AAI 
05AAI 
05ACI 
05AEI 
05AEI 
05AEI 



A5 - MMU address increment D5 
A6 - not used D6 



low physical page 
high physical page 



2A08 
2C09 
7009 
EOAD 
EOAE 



247C 0000 8008 

267C 0000 8000 

2A7C 0002 0000 

263C 0000 0100 

787E 

3005 

323C 0700 



49FA 0004 
6024 

5344 
D083 
BC80 
66F2 



4240 
323C OCOO 

49FA 0004 
6010 

5384 
66F6 



; First translate memory addresses to 512 byte page values for MMD use 

RSTMMU 

;GET MEMORY ADDRESS VALUES 



;SET SHIFT COUNT 

; TRANSLATE TO PAGE VALUES 



MOVE.L 


A0,D5 


MOVE.L 


A1,D6 


MOVEQ 


#9, DO 


LSR.L 


D0,D5 


LSR.L 


D0,D6 



Now initialize for MMU write operations 



MOVEA.L #MMUSADRB,A2 
MOVEA.L #MMUSADRL,A3 
MOVE . L #ADR12 8K , A5 
MOVE.L #PAG128K,D3 
MOVEQ #126, D4 
MOVE D5,D0 
MOVE #MEMLMT,D1 



SET MMU BASE REG PTR 

SET LIMIT REG PTR 

SET INCREMENT VALUE FOR MMU ADDRESSES 

SET INCR VALUE FOR BASE REG CONTENTS 

SET REG COUNT - NO RESETTING OF REGS 126,127 

SET BASE VALUE 

SET LIMIT VALUE 



Remap MMU regs for existing memory 



REMAP 


BSRS4 


WRTMMU 


# 


LEA 


@1,A4 


# 


BRA.S WRTMMU 


#@1 








SUBQ 


#1,D4 




ADD.L 


D3,D0 




CMP.L 


D0,D6 




BNE.S 


REMAP 



; REWRITE SET OF MMU REGS 



;DECR REG COUNT 

;BUMP PAGE ADDRESS 

; CHECK IF AT UPPER LIMIT 

;LOOP IF NO 



Now map remainder of regs for invalid access 





CLR 


DO 




MOVE 


#INVPAG,D1 


MAPINV 


BSRS4 


WRTMMU 


# 


LEA 


@1,A4 


# 


BRA. 


S WRTMMU 


#@1 







SUBQ.L #1,D4 
BNE . S MAPINV 



SET NEW BASE REG VALUE 

AND LIMIT REG VALUE 
GO DO REWRITE 



;DECR COUNT 
;LOOP UNTIL DONE 



Finally reset video page to last page of memory 
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05AEI 
05B0I 
05B2I 
05B8I 
05B8I 
05BAI 
05BAI 
05BAI 
05BAI 
05BAI 
05BAI 
05BAI 
05BAI 
05BAI 
05BAI 
05BAI 
05BAI 
05BAI 
05C0I 
05C2I 
05C4I 
05C6I 
05C8I 
05CEI 
05CEI 
05D0I 
05D0I 
05D0I 
05D0I 
05D0I 
05D0I 
05D0I 
05D0I 
05D0I 
05D0I 
05D0I 
05D0I 
05D0I 
05D0I 
05D0I 
05D0I 
05D0I 
05D0I 
05D0I 
05D4I 
05DAI 
05DAI 



EC8E 
5346 
13C6 OOFC E800 

6066 



LSR.L 

SUBQ 

MOVE.B 


#6,D6 
#1,D6 
D6,VIDLTCH 


BRA.S 
.IF 
.ENDC 


MEMTSTl 
EXTERNAL = 1 



; confute address for video page 
;decr to last page 
;and set video latch 

;SKIP TO NEXT TEST 



Subroutine to set MMU regs (context 0) - can also be called by external 
routines that provide the following register inputs: 



A2 = base reg address 

A3 = limit reg address 

A5 = reg address increment 



DO = value for base reg 
Dl = value for limit reg 



4A39 
3480 
3681 
D5CD 
D7CD 
4239 

4ED4 



OOFC EOlO 



OOFC E012 



WRTMMU TST.B 


SETUPON 


MOVE 


DO, (A2) 


MOVE 


D1,(A3) 


ADDA.L 


A5,A2 


ADDA.L 


A5,A3 


CLR.B 


SETUP 


RTS4 




JMP 


(A4) 



;TURN SETUP ON TO ENABLE MMU ACCESS 
;SET BASE REG 
;SET LIMIT REG 
;BUMP MMU PTRS 

;BACK TO MAP LAND 
;AND BACK TO CALLER 



.IF R0M16K = 1 



Subroutine to read MMU regs 
Inputs : 

= context to read (0-3) 
= base reg address 
limit reg address 
return address 
reg address increment 



for call by external routines. 



D2 

A2 

A3 = 

A4 = 

A5 = 
Outputs : 

DO = value of base reg 

Dl = value of limit reg 

A2 ,A3 incremented by value in A5 
Side Effects: 

D3 trashed 



363C OFFF 
4A39 OOFC EOlO 

4A42 



READMMU MOVE 
TST.B 

TST 



#$0FFF,D3 ;set mask for result 

SETUPON ;turn setup on to enable MMU access 

D2 ; check context 
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05DC 


6722 






05DE 


0C02 


0001 




05E2 


6716 






05E4 


0C02 


0002 




05E8 


6708 






05EA 


4A39 


OOFC 


EOOE 


05F0 


6008 






05F2 


4A39 


OOFC 


EOOE 


05F8 


6006 






05FA 


4A39 


OOFC 


EOOA 


0600 








0600 








0600 








0600 


3012 






0602 


C043 






0604 


3213 






0606 


C243 






0608 


D5CD 






060A 


D7CD 






060C 


4A39 


OOFC 


E008 


0612 


4A39 


OOFC 


EOOC 


0618 


4239 


OOFC 


E012 


061E 








061E 


4ED4 






0620 








0620 








0620 








0620 








0620 








0620 








0620 








0620 








0620 








0620 








0620 








0620 








0620 


2448 






0622 


2649 






0624 








0624 








0624 








0624 


91C8 






0626 


327C 


0800 




062A 








062A 


49FA 


0006 




062E 


6000 


0880 




0632 











BEQ.S 


@9 




CMP.B 


#1,D2 




BEQ.S 


@2 




CMP.B 


#2,D2 




BEQ.S 


@1 




TST.B 


SEG20N 




BRA.S 


@2 


@1 


TST.B 


SEG20N 




BRA.S 


@9 


@2 


TST.B 


SEGION 



;skip if context 
; context 1? 

; context 2? 

;inust be context 3 
;set both seg bits 
;set for context 2 

;set for context 1 and 3 



read the regs 



@9 



MOVE 


(A2) ,D0 


;read base reg 


AND 


D3,D0 


; clear junk 


MOVE 


(A3) ,D1 


;read limit reg 


AMD 


D3,D1 


; clear junk 


ADDA.L 


A5,A2 


;incr ptrs 


ADDA.L 


A5,A3 




TST.B 


SEGIOFF 


; restore to context 


TST.B 


SEG20FF 




CLR.B 


SETUP 


;back to map land 


RTS4 




;and back to caller 


JMP 


(A4) 




.ENDC 






.IF 


EXTERNAL = 1 




.ENDC 







.PAGE 



Begin memory testing by checking first 800 hex locations (2K) . 

If error here, abort other testing and go into loop since can't relay 

meaningful results . 



MEMTSTl MOVEA.L A0,A2 
MOVEA.L A1,A3 

.IF DIAGS = 1 



SOBA.L A0,A0 

MOVEA #L0MEM,A1 

BSR4 RAMTEST 
LEA @1,A4 
BRA RAMTEST 



# 
# 

#@1 



;save memory lo, hi addresses 



;set test addresses 
; upper address 
;go do memory test 



RMOOO 
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0632 


6738 




0634 






0634 






0634 






0634 


200A 




0636 


E088 




0638 


EE88 




063A 


13C0 


OOFC E800 


0640 






0640 


49FA 


0006 


0644 


6000 


01B4 


0648 






0648 






0648 






0648 


45FA 


0006 


064C 


6000 


FF06 


0650 






0650 


303C 


61A8 


0654 


5340 




0656 


66FC 




0658 






0658 


45FA 


0006 


065C 


6000 


FEF6 


0660 






0660 






0662 


303C 


A55A 


0666 


3080 




0668 


3210 




066A 


60FA 




066C 






066C 






066C 






066C 






066C 






066C 






066C 


307C 


0180 


0670 


707F 




0672 


4298 




0674 


51C8 


FFFC 


0678 






0678 


31C3 


0186 


067C 


3 ICE 


0184 


0680 


21CA 


02A4 


0684 


21CB 


0294 


0688 


97CA 




068A 


21CB 


02A8 


068E 







BEQ . S INITMEM 



;skip if OK 



Error in low memory - reset video latch, beep speaker and go into R/W loop 

;get low physical address 
; convert to page value 

;set video latch to bad area 
; ensure contrast on 



;beep speaker twice for low memory error 





MOVE.L 


A2,D0 




LSR.L 


#8, DO 




LSR.L 


#7, DO 




MOVE.B 


DO,VIDLTCH 




BSR4 


CONSET 


# 


LEA 


@1,A4 


# 


BRA 


CONSET 


#@1 








BSR2 


LOTONE 


# 


LEA 


@1,A2 


# 


BRA 


LOTONE 


#@1 








MOVE 


#TNTHSEC,DO 


TONEDLY 


SUBQ 


#1,D0 




BNE.S 


TONEDLY 




BSR2 


LOTONE 


# 


LEA 


@1,A2 


# 


BRA 


LOTONE 


#@1 








MOVE 


#PATRN2,D0 


@2 


MOVE 


DO, (AO) 




MOVE 


(AO) ,D1 




BRA.S 


@2 




.ELSE 






.ENDC 





; delay for about 1/10 sec 



;do second beep 



;set pattern for usess 



;loop with random display on screen 



RMOOO 



; {DIAGS} 
Now attenpt to initialize status areas and save results 



;get ptr to start of status area 
;set count 
; clear it 
; until done 

;save test results 
;save sizing results 
;save min memory address 
;save max memory address 
(■compute total memory 
;and save also 



INITMEM MOVEA 


#STATUS,AO 


MOVEQ 


#127, DO 


@2 CLR.L 


(A0) + 


DBF 


D0,@2 


MOVE 


D3,MEMRSLT 


MOVE 


A6 , SIZRSLT 


MOVE.L 


A2,MINMEM 


MOVE.L 


A3,MAXMEM 


SUBA.L 


A2,A3 


MOVE.L 


A3,T0TLMEM 



RMOOO 
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068E 


207C 


0000 8000 


0694 


97C8 




0696 


21CB 


0110 


069A 






069A 


31C2 


OIBO 


069E 






069E 


21FC 


0000 02B0 


06A6 






06A6 






06A6 






06A6 






06A6 






06A6 






06A6 


6104 




06A8 


6000 


OOCA 


06AC 






06AC 






06AC 






06AC 






06AC 


41FA 


003E 


06B0 


93C9 




06B2 


7040 




06B4 


22C8 




06B6 


5340 




06B8 


6EFA 




06BA 


6126 




06BC 


41FA 


0090 


06C0 


21C8 


OOOC 


06C4 


41FA 


0032 


06C8 


21C8 


0010 


06CC 


41FA 


0036 


06D0 


21C8 


007C 


06D4 


41FA 


0060 


06D8 


21C8 


0028 


06DC 


21C8 


002C 


06E0 






06E0 






06E0 






06E0 






06E0 


4E75 




06E2 






06E2 






06E2 






06E2 






06E2 






06E2 


47FA 


005E 


06E6 


21CB 


0008 



MOVE.L #HEX32K,A0 

SUBA.L A0,A3 

MOVE . L A3 , SCRNBASE 

MOVE D2,MMURSLT 

MOVE.L #KBDQ,KBDQPTR 

.PAGE 



; confute base address for screen 

;and save 

;and save MMU results also 

;init COPS buffer pointer for later use 



Initialize exception and trap vectors to catch une:^ected errors 



INITVCT BSR.S 
BRA 



SETVCTRS 
SCCSET 



;init vectors 

; continue testing 



CHG027 



@1 



; Subroutine to set up default vectors 

SETVCTRS 

LEA MISC,AO 

SOBA.L A1,A1 

MOVEQ #64, DO 

MOVE.L A0,(A1)+ 

SOBQ #1,D0 

BGT @1 

BSR.S SETBUSVCT 

LEA AERR,AO 

MOVE . L AO , ADRVCTR 

LEA IERR,AO 

MOVE . L AO , ILLVCTR 

LEA NMI,AO 

MOVE.L AO,NMIVCT 

LEA TRPERR,AO 

MOVE.L A0,L10VCTR 

MOVE.L A0,L11VCTR 

.IF USERINT = 
.ENDC 

RTS 



fill with unlcnown ones 



then, with special ones 



RMOOO 



same routine for line 1010 and 1111 



Subroutine to setup bus error vector 



SETBUSVCT 

LEA BERR,A3 
MOVE . L A3 , BUSVCTR 



; setup default vector 



RMOOO 



RMOOO 
RMOOO 
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06EA 


4E75 




06EC 






06EC 






06EC 






06EC 






06EC 






06EC 


21C7 


OlAC 


06F0 


7E00 




06F2 


08C7 


0007 


06F6 


606C 




06F8 






06F8 


21C7 


OlAC 


06FC 


7E00 




06FE 


08C7 


0008 


0702 


6060 




0704 






0704 


21C7 


OlAC 


0708 


7E00 




070A 


6100 


085C 


070E 


6620 




0710 






0710 


08C7 


0016 


0714 


6100 


08DA 


0718 


4A39 


OOFC EOlC 


071E 


0801 


0005 


0722 


6706 




0724 


0281 


FFFF 8000 


072A 


21C1 


01A6 


072E 


6034 




0730 






0730 


08C7 


0004 


0734 


602E 




0736 






0736 


21C7 


OlAC 


073A 


7E00 




073C 


08C7 


0009 


0740 


6022 




0742 






0742 


21C7 


OlAC 


0746 


7E00 




0748 


08C7 


0005 


074C 


600A 




074E 


21C7 


OlAC 


0752 


7E00 




0754 


08C7 


0006 


0758 






0758 







RTS 



BMOOO 



Exception Handler routines 



MISC 



lERR 



NMI 



MOVE.L D7,D7SAV 

MOVEQ #0,D7 

BSET #MISEXCP,D7 

BRA.S EXCPl 

MOVE.L D7,D7SAV 

MOVEQ #0,D7 

BSET #ILLEXCP,D7 

BRA.S EXCPl 



MOVE.L 


D7,D7SAV 


MOVEQ 


#0,D7 


BSR 


TSTSTAT 


BNE.S 


NOTPE 


BSET 


#MPAR,D7 


BSR 


GETPADDR 


TST.B 


PAROFF 


BTST 


#5,D1 


BEQ.S 


@1 


ANDI.L 


#VMSK,D1 


MOVE.L 


Dl , PEADDR 


BRA.S 


EXCPl 



@1 



NOTPE BSET #CPUINTR,D7 

BRA.S EXCPl 

TRPERR MOVE . L D7 , D7SAV 

MOVEQ #0,D7 

BSET #TRPEXCP,D7 

BRA.S EXCPl 

BERR 



AERR 



MOVE.L 


D7,D7SAV 


MOVEQ 


#0,D7 


BSET 


#BUSEXCP,D7 


BRA.S 


EXCPO 


MOVE.L 


D7,D7SAV 


MOVEQ 


#0,D7 


BSET 


#ADREXCP,D7 



EXCPO 



;save incoming value 
;set error indicator 

;save incoming value 
;set error indicator 

;save incoming value 

; check status reg for parity error 
;skip if not 

;set error indicator 

;get and save error address 

; toggle to clear error bit 

; video error? 

;skip if not 

;mask if yes 

;save converted error address 

;go to exit 

;else set NMI code 
; and exit 

;save incoming value 

;set error indicator 

;save incoming value 
;set error indicator 
;save incoming value 
;set error indicator 
; GROUP EXCEPTIONS HERE 



CHG015 



CHG015 

CHG015 
CHG015 
CHG015 
CHG015 
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0758 


3 IDF 


0280 


075C 


2 IDF 


0282 


0760 


3 IDF 


0286 


0764 






0764 






0764 


3 IDF 


0288 


0768 


2 IDF 


02 8A 


076C 


3 ICO 


02 8E 


0770 


6000 


0C28 


0774 






0774 






0774 






0774 






0774 






0774 






0774 






0774 






0774 


47FA 


03E4 


0778 


21CB 


0008 


077C 


6100 


0952 


0780 






0780 






0780 






0780 






0780 






0780 






0780 






0780 






0780 






0780 






0780 






0780 


47FA 


002C 


0784 


21CB 


0008 


0788 






0788 


207C 


OOFC D931 


078E 


7008 




0790 






0790 


4DFA 


0004 


0794 


6022 




0796 






0796 


670A 




0798 


08C7 


OOOB 


079C 


4A87 




079E 


6BE0 




07A0 


600A 




07A2 






07A2 







EXCPl 



MOVE (SP)+,EXCFC 
MOVE.L (SP)+,EXCADR 
MOVE (SP)+,EXCIR 



MOVE (SP)+,EXCSR 

MOVE.L (SP)+,EXCPC 

MOVE DO,EXCTYPE 

BRA TSTCHK 

.PAGE 



SAVE THE EXTRA DATA 



GROUP 1 EXCEPTIONS HERE 
SAVE CC»«MON INFO 

save error type 

and go display error 



Initialize SCC chip for i^plebus use. 

Bus error vector setup in case of problems . 



CHG027 



SCCSET 



LEA 

MOVE.L 

BSR 



N0I0,A3 

A3,BUSVCTR 

RSTSCC 



set bus error vector in case no 10 board CHG027 

CHG027 
go do setup CHG027 



Now test VIA for parallel port and contrast latch. 

A read/write test on the timer 1 latches is done, then contrast 

is set if OK. 



VIA2TST 



VIA2CHK 



.IF DIAGS = 1 

.IF R0M16K = 1 
LEA VIA2VCT,A3 
MOVE . L A3 , BUSVCTR 



;0K 



set up special bus vector 



MOVE.L #<VIA2BASE+T1LL2>,A0 ;set base address of timer low latch 
MOVEQ #8, DO ;set offset to high latch 

BSRS6 VIATST ;and go do test 



;if OK, continue 

;else set error bit 

; check if in loop mode 

; restart if yes 

;else skip contrast setting 



# 


LEA 


@1,A6 


# 


BRA.S VIATS 


#@1 








BEQ.S 


@2 




BSET 


#VIA2,D7 




TST.L 


D7 




BMI.S 


VIA2CHK 




BRA.S 


@3 




.ENDC 





Computer Boot ROM 2.48 Listing • 61 of 265 



07A2 


4A87 




07A4 


6BDA 




07A6 






07A6 


49FA 


0004 


07AA 


6054 




07AC 






07AC 






07AC 






07AC 






07AC 


6074 




07AE 






07AE 






07AE 






07AE 






07AE 






07AE 






07AE 


7033 




07B0 


08C7 


OOOB 


07B4 


6000 


0162 


07B8 






07B8 






07B8 






07B8 






07B8 






07B8 






07B8 






07B8 






07B8 






07B8 






07B8 


2248 




07BA 


D3C0 




07BC 


7000 




07BE 


4202 




07C0 


4210 




07C2 


4211 




07C4 






07C4 


363C 


OOFF 


07C8 






07C8 


49FA 


0004 


07CC 


6002 




07CE 






07CE 






07CE 


4ED6 




07D0 






07D0 






07D0 






07D0 


B410 





@2 


TST.L D7 




BMI . S VIA2CHK 




BSRS4 CONOFF 


# 


LEA @1,A4 


# 


BRA.S CONOF 


#@1 





;in loop mode? 

; restart if yes 

;go turn off contrast 



@3 



.ENDC 

BRA.S SCRNTST 
.IF DIAGS = 1 
Bus error handler for VIA #2 use 



; {DIAGS} 

;else skip to next test 



VIA2VCT MOVEQ #EVIA2,D0 

BSET #VIA2,D7 

BRA lOVCT 
.ENDC 

.IF R0M16K = 1 
.PAGE 



SET ERROR CODE 

set indicator 

AND GO HANDLE I/O EXCEPTION 

{DIAGS} 



Subroutine to do VIA testing 

AO = address of first timer latch 
DO = offset to other latch 



VIATST MOVE . L 


A0,A1 


ADDA.L 


D0,A1 


MOVEQ 


#0,D0 


CLR.B 


D2 


MOVE.B 


#0,(A0) 


MOVE.B 


#0,(A1) 


MOVE 


#$FF,D3 


BSRS4 


VIARW 


f LEA 


@1,A4 


BRA.S 


VIARW 



# 
# 
#@1 



RTS6 
JMP 



;set up address for second latch 

;for error use 

; clear old data value 

;and the timer latches 



;set up start value 
;go do read/ write test 



;and return 



(A6) 



; Subroutine to do read/write test - loops thru all 256 values 
VIARW CMP.B (AO) ,D2 ; check for old values first 
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07D2 


6620 




07D4 


B411 




07D6 


661C 




07D8 






07D8 


1083 




07DA 


B411 




07DC 


6616 




07DE 


B610 




07E0 


6612 




07E2 






07E2 


1283 




07E4 


B610 




07E6 


660C 




07E8 


B611 




07EA 


6608 




07EC 






07EC 


1403 




07EE 


51CB 


FFEO 


07F2 


6002 




07F4 






07F4 


5240 




07F6 






07F6 


4A40 




07F8 






07F8 


4ED4 




07FA 






07FA 






07FA 






07FA 






07FA 






07FA 






07FA 


103C 


0080 


07FE 


6002 




0800 






0800 


7 OFF 




0802 






0802 


207C 


OOFC D901 


0808 


117C 


0084 0010 


080E 


lOBC 


0004 


0812 


117C 


OOFF 0018 


0818 


1140 


0008 


081C 


08D0 


0007 


0820 






0820 






0820 


4ED4 




0822 






0822 







BNE . S VIAFAIL 

CMP.B (Al) ,D2 

BNE . S VIAFAIL 

MOVE.B D3,(A0) 

CMP.B (Al) ,D2 

BNE . S VIAFAIL 

CMP.B (AO) ,D3 

BNE . S VIAFAIL 

MOVE.B D3,(A1) 

CMP.B (AO) ,D3 

BNE . S VIAFAIL 

CMP.B (Al) ,D3 

BNE . S VIAFAIL 

MOVE.B D3,D2 

DBF D3,VIARW 

BRA.S VIARWEND 



VIAFAIL ADDQ 

VIARWEND TST 
RTS4 
# JMP 

.ENDC 
.PAGE 



#1,D0 
DO 

(A4) 



;set new value in low timer latch 
; ensure high latch not affected 

;verify new low latch setting 



;set new value in high timer latch 
; ensure low latch not affected 

; verify new high latch setting 



;the new value becomes the old 
;loop thru all 256 values 



;set for error 

;set zero bit indicator 



Subroutine to set contrast latch - sets for default, off or value in DO 



CONSET 



CONOFF 
C0NSET2 



MOVE.B 
BRA.S 



#$80, DO 
C0NSET2 



MOVEQ #-l,DO 

MOVE . L #VIA2BASE , AO 

MOVE.B #$84,DDRB2(A0) 

MOVE.B #4,ORB2(A0) 

MOVE . B #$FF , DDRA2 (AO ) 

MOVE.B D0,ORA2(A0) 

BSET #7,ORB2(A0) 

RTS4 

JMP (A4) 



;set mid range value default 



set for contrast off 

for external entry 

GET 6522 BASE ADDR 

ENSURE NO STRAY DATA TO CONTRAST 

LATCH BY DISABLING DRIVERS 
NOW SET PORT A AS OUTPUTS 
set contrast value 
AND STROBE IT 

RETURN TO CALLER 
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0822 






0822 






0822 






0822 






0822 






0822 






0822 






0822 






0822 






0822 






0822 






0822 






0822 






0822 


2078 


0110 


0826 


2278 


02A8 


082A 






082A 


49FA 


0006 


082E 


6000 


0680 


0832 






0832 


67 6E 




0834 


08C7 


0015 


0838 






0838 






0838 






0838 


6100 


064A 


083C 


6136 




083E 






083E 


2278 


0110 


0842 


2049 




0844 


247C 


0000 8000 


084A 


91CA 




084C 






084C 


48E7 


OOEO 


0850 






0850 


49FA 


0006 


0854 


6000 


065A 


0858 






0858 


4CDF 


0700 


085C 


670E 




085E 


2808 




0860 


6112 




0862 


2248 




0864 


91CA 




0866 


2008 




0868 


6EE2 




086A 






086A 


6036 





.PAGE 



Test memory to be used for screen. The screen can then be 
used for test icon display. Default choice is last 32K of memory. 
If this is invalid, do backwards scan through memory until a valid 
area is found. 

Assiomes: location SCRNBASE = base address of default screen (set by 
sizing routine) 



SCRNTST 



.IF DIAGS = 1 





MOVE.L 


SCRNBASE, AO 




MOVE.L 


T0TLMEM,A1 




BSR4 


RAMTEST 


# 


LEA 


@1,A4 


# 


BRA 


RAMTEST 


#@1 








BEQ.S 


INVTST 




BSET 


#MEM,D7 



;get base address of screen 
;set end address 
;and go do test 



; continue if no error 

;else set memory read/write error 



save error results and then start search for good video page 



; initialize for further testing 
;save results 

;set new search end address 

; screen size is 32K 

;set new start addr (end-32K) 

;save search addresses 
;go test 



(■restore addresses (no effect on CCR) 
;skip if OK (non-zero CCR if error) 
;else go save results 

;set next end 

; and start addresses 

; continue thru all of memory if necessary 





BSR 


TSTINIT 




BSR.S 


SCRNSAV 




MOVE.L 


SCRNBASE, Al 




MOVE.L 


A1,A0 




MOVE.L 


#HEX32K,A2 




SOBA.L 


A2,A0 


@1 


MOVEM.L 


A0-A2,-(SP) 




BSR4 


RAMTEST 


# 


LEA 


@1,A4 


# 


BRA 


RAMTEST 


#@1 








MOVEM.L 


(SP)+,A0-A2 




BEQ.S 


SCRNOK 




MOVE.L 


A0,D4 




BSR.S 


SCRNSAV 




MOVE.L 


A0,A1 




SUBA.L 


A2,A0 




MOVE.L 


A0,D0 




BGT.S 


@1 



SCRNERR BRA.S 



INVTST 



; continue testing, leave screen at default 
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086CI 
086CI 
08701 
08721 
08741 
08741 
08741 
08741 
08741 
08741 
08741 
08741 
08741 
08741 
08741 
08741 
08741 
08761 
08781 
087AI 
087CI 
087EI 
08801 
08841 
08861 
08861 
08861 
08861 
08861 
08861 
08861 
08861 
08861 
08861 
08861 
08861 
08861 
088AI 
088EI 
08901 
08941 
08961 
08981 
089AI 
08A0I 
08A2I 
08A2I 



21C8 0110 

6114 

602E 



SCRNOK 



MOVE.L 

BSR.S 

BRA.S 



AO , SCRNBASE 

SETVLTCH 

INVTST 



;save new screen base 
;and go set video latch 
;and exit to next test 



Subroutine to save error results from screen test routine 
Inputs : 

A3 = ptr to base of save result area 

D4 = base address of test area 
Outputs : 

None 
Side Effects: 

D1/D3-D4 trashed 



7211 

E2AC 

D844 

2203 

4843 

8641 

8773 4000 

4E75 



SCRNSAV MOVEQ 
LSR.L 
ADD 
MOVE.L 
SWAP 
OR 
OR 
RTS 



#17, Dl 

D1,D4 

D4,D4 

D3,D1 

D3 

D1,D3 

D3,0(A3,D4) 



;divide base address by 128K 

;doiable for word index to save area 
; combine error results 



;save and exit 



Subroutine to set the video latch 
Inputs : 

Location SCRNBASE = logical base address for screen 
Outputs : 

None 
Side Effects: 

DO-Dl trashed 



SETVLTCH 



2438 0110 

2238 02A8 

9282 

2038 0294 

9081 

E088 

EE88 

13C0 OOFC E800 

4E75 



MOVE.L 

MOVE.L 

SUB.L 

MOVE.L 

SOB.L 

LSR.L 

LSR.L 

MOVE.B 

RTS 

.PAGE 



SCRNBASE, D2 ;get logical screen base address 

T0TLMEM,D1 ;get physical amount of memory 

D2,D1 ; compute screen base offset 

MAXMEM,DO ;get max physical address 

D1,D0 ;cort5)ute physical screen base address 

#8, DO ; convert to page value 
#7, DO 

DO,VIDLTCH ;set latch 
;and exit 
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08A2 






08A2 






08A2 






08A2 






08A2 






08A2 






08A2 






08A2 






08A2 






08A2 






08A2 






08A2 






08A2 






08A2 






08A2 






08A2 






08A2 






08A2 






08A2 






08A2 


6100 


2832 


08A6 


6134 




08 AS 






08 AS 






08 AS 






08 AS 






08 AS 


49FA 


0006 


08AC 


6000 


FF4C 


08B0 






08B0 






08B0 






08B0 


47FA 


0546 


08B4 


21CB 


0008 


08BS 


207C 


OOFC DD8D 


08BE 


7002 




08C0 






08C0 


4DFA 


0006 


08C4 


6000 


FEF2 


08CS 






08CS 


670C 




08CA 


08C7 


OOOA 


08CE 


4A87 




08D0 


6BDE 




08D2 


6000 


0AC6 


08D6 






08D6 


4A87 




08DS 


6BD6 




08DA 


600E 





Now check state of INVID bit to see if inverse video is installed. 
If yes, rewrite last 4 words of screen page to avoid retrace line. 



INVTST 



.IF INVERTCK = 1 

.ENDC 

.ENDC 



{INVERTCK} 
{DIAGS} 



CHG013 
CHG013 



Continue testing by now doing COPS VIA test 



VIAITST 



.IF USERINT = 1 
Draw desktop on screen for test icon display 



BSR 
BSR.S 

.ENDC 



DRAWDESK 
DSPCPURM 





BSR4 


CONSET 


# 


LEA 


@1,A4 


# 


BRA 


CONSET 


#@1 







;draw the desk 
;and CPU ROM id 



;set default contrast 



CHGOOl 



.IF R0M16K = 1 



; first set up bus error vector 



VIAICHK LEA VIA1VCT,A3 
MOVE . L A3 , BUSVCTR 
MOVE.L #<VIA1BASE+T1LL1>,A0 ;set base address of timer low latch 

;set offset to high latch 

;go test 



;skip if OK 

;else set error bit 

; loop? 

;yes - test again 

;else abort further testing 





MOVEQ 


#2, DO 




BSR6 


VIATST 


# 


LEA 


@1,A6 


# 


BRA 


VIATST 


#@1 








BEQ.S 


@2 




BSET 


#VIA1,D7 




TST.L 


D7 




BMI.S 


VIAICHK 




BRA 


TSTCHK 


@2 


TST.L 


D7 




BMI.S 


VIAICHK 




BRA.S 


COPSENBL 



; check for loop mode 
;else go test COPS 
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08DC 






08DC 






08DC 






08DC 






08DC 






08DC 






08DC 


103A 


371F 


08E0 


7A03 




08E2 


7C50 




08E4 


6100 


2E54 


08E8 


4E75 




08EA 






08EA 






08EA 






08EA 






08EA 






08EA 






08EA 






08EA 






08EA 


47FA 


002A 


08EE 


21CB 


0008 


08F2 


612C 




08F4 


6514 




08F6 


4A87 




08F8 


6BF0 




08FA 






08FA 


2007 




08FC 


0280 


OOIF FFFF 


0902 


6700 


OOBE 


0906 


6000 


0A92 


090A 






090A 


08C7 


OOOC 


090E 


4A87 




0910 


6BD8 




0912 


6000 


0A86 


0916 






0916 






0916 






0916 






0916 






0916 


7034 




0918 


08C7 


0012 


091C 


6000 


FE3A 


0920 






0920 






0920 






0920 







Subroutine to display CPU RCM id 



DSPCPUEM 



MOVE.B REV, DO 

MOVEQ #RC»1IDR0W,D5 

MOVEQ #R0MIDC0L,D6 

BSR DSFVAL 
RTS 

.ENDC 
.PAGE 



read ROM rev 
setup cursor ptrs 

do display 



CHGOOl 
CHGOOl 
CHGOOl 
CHGOOl 
CHGOOl 



Try turning COPS on so that keyboard commands can be received 



COPSENBL 



LEA 


C0PSVCT,A3 


MOVE.L 


A3,BUSVCTR 


BSR.S 


CPSINIT 


BCS.S 


COPSBAD 


TST.L 


D7 


BMI.S 


COPSENBL 


MOVE.L 


D7,D0 


AMDI.L 


#CPIOMSK,D0 


BEQ 


RSTSCAN 


BRA 


TSTCHK 


COPSBAD BSET 


#I0C0PS,D7 


TST.L 


D7 


BMI.S 


COPSENBL 


BRA 


TSTCHK 



;set up bus error vector first 

; enable COPS 
;skip if error 
; looping desired? 
;go repeat test 

;get error indicator 

;mask off don't care bits 

; continue if OK to do reset scan 

;else go report error 

;else set COPS error 

; looping desired? 

;go repeat test 

;else abort further testing 



Bus error handler for COPS testing with entry point for other I/O tests 



COPSVCT MOVEQ 
lOVCT BSET 
BRA 



#EIOCOP,D0 
#I0EXCP,D7 
EXCPO 



SET ERROR CODE 

SET I/O EXCEPTION ERROR 

AND GO HANDLE EXCEPTION 



Subroutine to initiialize COPS interface for use 
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0920 


207C 


OOFC 


DD81 




0926 


117C 


0001 


0016 




092C 


0028 


0009 


0018 




0932 


117C 


007F 


OOIC 




0938 


117C 


007F 


OOIA 




093E 










093E 










093E 










093E 


4240 








0940 


6114 








0942 


6510 








0944 










0944 


7070 








0946 


610E 








0948 


650A 








094A 










094A 










094A 


7050 








094C 


6108 








094E 


6504 








0950 


7060 








0952 


6102 








0954 










0954 










0954 


4E75 








0956 










0956 










0956 










0956 










0956 










0956 










0956 










0956 










0956 










0956 










0956 


48E7 


F8E0 






095A 










095A 


40E7 






# 


095C 


007C 


0700 




# 


0960 


207C 


OOFC 


DD81 




0966 


2248 








0968 


2448 








096A 


D4FC 


0006 






096E 


7440 








0970 


76FF 








0972 


7806 








0974 











CPSINIT MOVEA.L #VIA1BASE,A0 
MOVE.B #$01,ACR1(A0) 
OR.B #$09,PCR1(A0) 
MOVE.B #$7F,IER1(A0) 
MOVE.B #$7F,IFR1(A0) 



GET VIA BASE ADDRESS 
SET PORT A LATCH ENABLE 
SET HANDSHAKE ENABLE 
CLEAR ALL INTRPT ENABLES 
AND CLEAR FLAGS 



Now turn COPS on, disabling mouse and NMI key 



TURNON CLR 


DO 


;SET FOR PORT ON CMD 


BSR.S 


COPSCMD 


;SEND TO COPS 


BCS.S 


@1 


;EXIT IF TIMEOUT ERROR 


MOVEQ 


#$70, DO 


; DISABLE MOUSE 


BSR.S 


COPSCMD 




BCS.S 


@1 





.IF DEBUG = 
MOVEQ #$50, DO 



; disable NMI key 



@1 



BSR.S 
BCS.S 
MOVEQ 
BSR.S 
.ENDC 

RTS 

.PAGE 



COPSCMD 
@1 

#$60, DO 
COPSCMD 



;AND EXIT 



Subroutine to send and to COPS 
Assvunes registers : 

DO = and value 
If COPS does not respond, timeout error indicated by setting carry bit. 



COPSCMD 



MOVEM.L D0-D4/A0-A2 , - 

DISABLE 

MOVE SR,-(SP) 
ORI #$0700, SR 

MOVEA.L #VIA1BASE,A0 

MOVEA.L A0,A1 

MOVEA.L A0,A2 

ADDA #DDRA1,A2 

MOVEQ #$40, D2 

MOVEQ #-l,D3 

MOVEQ #6,D4 



(SP) ;save regs 

; disable all interrupts 



;set COPS VIA interface ptr 

;save for use as port B output reg address 

(■compute address for port A data direction reg 
;set up constants for later use 
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0974 


1140 


OOIE 


0978 






0978 






0978 






0978 






0978 






0978 






0978 






0978 


323C 


061A 


097C 


5341 




097E 


6732 




0980 


0911 




0982 


66F8 




0984 






0984 






0984 






0984 


COFC 


0001 


0988 






0988 


323C 


061A 


098C 


5341 




098E 


6722 




0990 


0911 




0992 


66F8 




0994 






0994 


1483 




0996 






0996 






0996 






0996 


323C 


061A 


099A 


5341 




099C 


6714 




099E 


0911 




09A0 


67F8 




09A2 






09A2 


700A 




09A4 


5340 




09A6 


6EFC 




09A8 






09A8 


4212 




09AA 


117C 


0082 OOIC 


09B0 


6008 




09B2 






09B2 






09B2 






09B2 


46DF 




09B4 


003C 


0001 


09B8 


6002 





MOVE.B D0,PORTAl(A0) ;set citid in data reg (no handshake) 



First find a ready state (CRDY low) 

Each of the following loops take about 32 machine cycles = 6.4 us plus 

a variable amount of time for sync with 6522 (max = 2us) 



MOVE #$061A,D1 

@3 SUBQ #1,D1 

BEQ.S @1 

BTST D4,(A1) 

BNE.S @3 



;set timeout for about 10 ms 

;exit if timeout 

;else wait for "ready" (bit 6 = CRDY) 



Now find the next ready state to insure enough time available for data 
MDLU #1,D0 



MOVE #$061A,D1 

@4 SUBQ #1,D1 

BEQ.S @1 

BTST D4,(A1) 

BNE.S @4 

MOVE.B D3,(A2) 



;kill some time (about 15.2 us) to get 
; out of previous CRDY 
;reinit timeout count 

;exit if timeout 

;wait for another "ready" 



; ok, jam out the data 



Now wait for CRDY high and then hold data for COPS to read 

;set timeout for about 10 ms 



MOVE #$061A,D1 

@5 SUBQ #1,D1 

BEQ.S @1 

BTST D4,(A1) 

BEQ.S @5 

MOVEQ #$A,D0 

@6 SUBQ #1,D0 

BGT.S @6 

CLR.B (A2) 

MOVE.B #$82,IER1(A0) 

BRA.S @2 



;exit if timeout 
;wait for "not-ready" 



force about a 40 ms 
delay for COPS hold time 



reset direction reg now 

and, enable CAl 
go to normal exit 



; Timeout occurred - set error indicator 
@1 ENABLE ;reenable 

# MOVE (SP)+,SR 

ORI.B #$01,CCR ;set carry bit 
BRA.S @9 ;skip to exit 
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09BAI 
09BAI 
09BAI 
09BCI 
09C0I 
09C2I 
09C2I 
09C2I 
09C2I 
09C2I 
09C2I 
09C2I 
09C2I 
09C2I 
09C2I 
09C2I 
09C2I 
09C2I 
09C2I 
09C2I 
09C2I 
09C2I 
09C2I 
09C2I 
09C2I 
09C2I 
09C2I 
09C2I 
09C2I 
09C2I 
09C2I 
09C6I 
09CAI 
09CCI 
09CEI 
09CEI 
09D2I 
09D2I 
09D2I 
09D4I 
09D6I 
09D8I 
09DAI 
09DCI 
09DCI 
09DCI 
09E0I 



46DF 

4CDF 071F 
4E75 



@2 ENABLE ; restore interrupt levels 

* MOVE (SP)+,SR 

@9 MOVEM.L (SP)+,D0-D4/A0-A2 ;restore regs 

RTS ;and return to caller 

.PAGE 



Scan COPS for proper reset codes. Delay added for normal COPS power-up 
time of about 1 . 7 seconds . 

Send reset signal and then scan keyboard/mouse interface. First "clears" 

COPS of any pending codes, and then issues reset. Works via 

a "state machine" that checks codes received and sets flags as follows: 

Dl = - reset signal in place 
= 1 - reset signal removed 
D3 = - no keyboard codes received => keyboard disconnected 
= 1 - keyboard disconnect code ($80/$FD) received 

=> ignore, may be old keyboard 
= 2 - keyboard disconnect/connect codes ($80/$FD/$80/id) received 
=> keyboard connected 

D4 = - no mouse codes received => mouse connected 

= 1 - only mouse connect code ($87) received => ignore, may be old sys 
= 2 - mouse connect/disconnect ($87/$07) codes received 
=> mouse disconnected 



RSTSCAN 



2278 0260 
347C 02C0 
616C 
64FC 

6100 OODA 



4281 
4283 
4284 
615E 
6560 



OCOO 0080 
6724 



@1 



MOVE . L KBDQPTR , Al 

MOVEA #QEND,A2 

BSR.S GETJMP 

BCC.S @1 



BSR 



RSTKBD 



.IF R0M4K = 
CLR.L Dl 
CLR.L D3 
CLR.L D4 
BSR.S GETJMP 
BCS . S RSTXIT 



; setup buffer ptrs 

; clear COPS queue, saving data 

;do reset of keyboard/mouse interfaces 

;init some flags 



; check for data 

;exit if none (may be old keyboard) 



; State - waiting for reset flag or mouse connect code 
RSTO CMPI.B #RSTCODE,D0 ; reset flag? 

BEQ.S RSTl ;skip if yes to state 1 
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09E2 


OCOO 


0087 


09E6 


670E 




09E8 


OCOO 


0007 


09EC 


6602 




09EE 


7802 




09F0 


6146 




09F2 


6548 




09F4 


60E6 




09F6 






09F6 






09F6 






09F6 


7801 




09F8 


613E 




09FA 


6540 




09FC 


OCOO 


0007 


OAOO 


66DA 




0A02 


7802 




0A04 


60EA 




0A06 






0A06 






0A06 






0A06 


6130 




0A08 


6532 




OAOA 


OCOO 


OOFD 


OAOE 


6604 




OAIO 


7601 




0A12 


60DC 




0A14 






0A14 


OCOO 


OODF 


0A18 


6208 




OAIA 


IICO 


01B2 


OAIE 


7602 




0A20 


60CE 




0A22 


OCOO 


OOFF 


0A26 


6604 




0A28 


08C7 


OOOD 


0A2C 






0A2C 


OCOO 


OOFE 


0A30 


6604 




0A32 


08C7 


OOOC 


0A36 






0A36 


60B8 




0A38 






0A38 






0A38 






0A38 


6144 




0A3A 


4E75 





GETO 



CMPI.B 


#MSPLG,DO 


BEQ.S 


RST2 


CMPI.B 


#MSUNPLG,DO 


BNE.S 


GETO 


MOVEQ 


#2,D4 


BSR.S 


GETJMP 


BCS.S 


RSTXIT 


BRA.S 


RSTO 



; mouse connect code? 

;skip if yes to state 2 

; mouse disconnect code only? 

;set flag for disconnect state 
;go get next code 
;exit if no more codes 
;else continue scan loop 



State 2 - waiting for mouse unplugged code 



RST2 



MOVEQ 


#1,D4 


BSR.S 


GETJMP 


BCS.S 


RSTXIT 


CMPI.B 


#MSUNPLG,DO 


BNE.S 


RSTO 


MOVEQ 


#2,D4 


BRA.S 


GETO 



;set flag for mouse connect received 

;go get next byte 

;exit if none or queue full 

;mouse disconnect code? 

;no - return to state 

;yes - set flag 

;and return to state 



State 1 - waiting for reset code 



RSTl 



BSR.S 


GETJMP 


BCS.S 


RSTXIT 


CMPI.B 


#KONPLG,D0 


BNE.S 


@1 


MOVEQ 


#1,D3 


BRA.S 


GETO 


CMPI.B 


#$DF,DO 


BHI.S 


@2 


MOVE.B 


DO,KEYID 


MOVEQ 


#2,D3 


BRA.S 


GETO 


CMPI.B 


#KCERR,DO 


BNE.S 


@3 


BSET 


#KBDC0PS,D7 



@1 



@2 



@3 CMPI.B #ICERR,DO 

BNE.S @4 

BSET #I0C0PS,D7 

@4 BRA.S GETO 

; Insert to save code space 

GETJMP BSR.S GETDATA 
RTS 



;go get next byte 

;exit if no more 

; keyboard unplugged code? 

;skip if not 

;else set flag 

;and return to state 

;id code? 

;skip if not 

;else save for later use 

; update flag 

;and return to state 

; Keyboard COPS error? 

;skip if not 

;else set error indicator 

;I/0 COPS error code? 

;skip if not 

;else set error indicator 

; continue scan from state 



;go get COPS data 
;and return to caller 
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0A3C 






0A3C 






0A3C 


4A01 




0A3E 


660A 




0A40 


6100 


0082 


0A44 


7201 




0A46 


6136 




0A48 


6492 




0A4A 






0A4A 






0A4A 






0A4A 


4A03 




0A4C 


6604 




0A4E 


08C7 


0017 


0A52 






0A52 






0A52 


4A04 




0A54 


6714 




0A56 






0A56 


5344 




0A58 


6710 




0A5A 






0A5A 


08C7 


0018 


0A5E 


600A 




0A60 






0A60 






0A60 






0A60 






0A60 






0A60 






0A60 


08C7 


0014 


0A64 


6004 




0A66 






0A66 


08C7 


OOOC 


0A6A 






0A6A 






0A6A 






0A6A 






0A6A 


21C9 


0260 


0A6E 






0A6E 






0A6E 


2007 




0A70 


0280 


0018 3000 


0A76 


4A80 




0A78 


6600 


0920 


0A7C 






0A7C 







Reset exit - analyze results 



RSTXIT TST.B 
BNE.S 
BSR 
MOVEQ 
BSR.S 
BCC.S 



Dl 

@1 

CLRRST 

#1,D1 

GETDATA 

RSTO 



@1 



.IF FINKBD = 1 
TST.B D3 



MSCHK 



@1 



BNE.S 
BSET 



TST.B 
BEQ.S 

SUBQ 
BEQ.S 

BSET 
BRA.S 

.ELSE 
.ENDC 



MSCHK 
#KBD0UT,D7 



D4 
SCANXIT 

#1,D4 
SCANXIT 

#M0US0UT,D7 
SCANXIT 



; reset signal lifted? 

;skip if yes 

;else remove reset signal 

;set "removed flag" 

;any data? 

;go decode if yes 



;any keyboard data detected? 

;skip if yes - assume keybd connected 

;if none, keyboard is disconnected 



;any mouse data? 

;skip if none - mouse connected 

;flag =1? 

; ignore if yes 

;else mouse disconnected 
;and go to exit 



; {FINKBD} 
Error exits - set appropriate indicator 



SCANERR BSET 


#I0KBD,D7 


;I/0 or keyboard failure 


BRA.S 


SCANXIT 




ICXERR BSET 


#ICX:0PS,D7 


;I/0 COPS error 


.ELSE 






.ENDC 




; {RCM4K} 


SCANXIT MOVE.L 


A1,KBDQPTR 


;save queue ptr for later use 



.IF R0M4K = 
MOVE.L D7,D0 
ANDI.L #SCANMSK,DO 
TST.L DO 
BNE TSTCHK 
.ENDC 



; check error codes 
; for scan errors 
;any found? 
;skip if yes 
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0A7CI 
0A7EI 
0A7EI 
0A7EI 
0A7EI 
0A7EI 
0A7EI 
0A7EI 
0A7EI 
0A7EI 
0A7EI 
0A7EI 
0A7EI 
0A80I 
0A82I 
0A88I 
0A8EI 
0A92I 
0A96I 
0A98I 
0A9AI 
0A9CI 
OAAOI 
0AA2I 
0AA2I 
0AA6I 
0AA8I 
OAAAI 
OAAAI 
OAAAI 
OAAAI 
OAAAI 
OAAAI 
OAAAI 
OAAAI 
OAAAI 
OAAAI 
OAAAI 
OAAAI 
OAAAI 
OABOI 
0AB4I 
OABAI 
OACOI 
0AC2I 
0AC4I 
0AC4I 



606A 



BRA.S BEEP 



;else continue testing 



Subroutine to get COPS data 

Assiomes registers : 

DO - scratch use AG - VIA address 

Dl - unused Al - Ptr to data save area 

D2 - scratch use A2 - Ptr to end of data area 

Puts data in save area and also leaves in register DO . 

Carry bit set if timeout error or keyboard queue full. 



B5C9 

671A 

243C 0000 OlFF 

207C OOFC DD81 

1028 OOIA 

0800 0001 

660A 

5342 

66F2 

003C 0001 

4E75 

1028 0002 

12C0 

4E75 



GETDATA CMPA.L A1,A2 



@1 



; check if at end of queue 



@2 



GETIT 



BEQ.S 


@2 


;exit if yes 


MOVE.L 


#$1FF,D2 


;else set timeout for 


MOVEA.L 


#VIA1BASE,A0 


;set COPS VIA interfac 


MOVE.B 


IFRl(AO) ,D0 


; check if data avail 


BTST 


#1,D0 




BNE.S 


GETIT 


;skip if yes 


SUBQ 


#1,D2 




BNE.S 


@1 


;else continue 


ORI.B 


#$01,CCR 


;set timeout error 


RTS 






MOVE.B 


ORAl(AO) ,D0 


;read data 


MOVE.B 


DO, (Al)+ 


;save it 


RTS 




;and exit with results 



.PAGE 



Subroutine to do reset of keyboard and mouse interfaces 
Inputs : 

None 
Outputs : 

None 
Side Effects: 

DO/AO trashed 



207C OOFC DD81 
0890 0000 
0028 0001 0004 
203C 0000 0BB8 
6120 
4E75 



RSTKBD MOVEA.L #VIA1BASE,A0 
BCLR #0,ORB1(AO) 
ORI.B #$01,DDRB1(A0) 
MOVE.L #3000, DO 
BSR.S DELAY 
RTS 



;set VIA ptr 
;set reset signal 
;send it 
;do delay for 12 ms 
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0AC4I 
0AC4I 
0AC4I 
0AC4I 
0AC4I 
0AC4I 
0AC4I 
0AC4I 
0AC4I 
0AC4I 
0AC8I 
OACAI 
OACCI 
OACCI 
OACCI 
OACCI 
OACCI 
OACCI 
OACCI 
OACCI 
0AD2I 
0AD4I 
0AD4I 
OADAI 
OADCI 
OADCI 
OADCI 
0AE2I 
0AE2I 
0AE2I 
0AE4I 
0AE6I 
0AE8I 
0AE8I 
0AE8I 
0AE8I 
0AE8I 
0AE8I 
0AE8I 
0AE8I 
OAEAI 
OAEEI 
OAEEI 
OAEEI 
OAEEI 
OAEEI 
OAEEI 



08D0 0000 

6112 

4E75 



203C 0000 61A8 
600E 

203C 0013 12D0 
6006 



203C 0006 7C28 



5380 
66FC 
4E75 



6104 
6000 OOAA 



Subroutine to remove reset signal for keyboard and mouse interfaces 
Inputs : 

AO = ptr to parallel port VIA (set in RSTKBD routine) 
Outputs : 

None 
Side Effects: 

DO trashed 



CLRRST BSET #0,ORB1(AO) 
BSR.S KBDDELAY 
RTS 



; remove reset signal 

; delay for keyboard reset time 



Subroutine to delay for count in DO (each count = 4 us) . Additional 
entry points set up for fixed delays . 



.IF R0M4K = 

DELAY_1 MOVE.L #TNTHSEC,DO 

BRA.S DELAY 

DELAYS MOVE.L #FIVESEC,DO 

BRA.S DELAY 

KBDDELAY 

MOVE.L #KBDDLY,DO 
.ENDC 

DELAY SUBQ.L #1,D0 

BNE . S DELAY 
RTS 

.PAGE 



; . 1 second delay 
;5 second delay 

; delay for COPS debounce loop 
;loop until count = 



Sound starting "tone" 



BEEP 



BSR.S CLICK 
BRA VIDTST 



;go click speaker 
;then go do video test 



Subroutine to set parms for speaker "click" 



103C OOAO 



CLICK MOVE.B #$AO,DO 



;set frequency 
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0AF2 


7200 






0AF4 


7408 






0AF6 








0AF6 








0AF6 








0AF6 








0AF6 








0AF6 








0AF6 








0AF6 








0AF6 








0AF6 








0AF6 


48E7 


1088 




OAFA 








OAFA 


49FA 


0004 




OAFE 


6006 






OBOO 








OBOO 


4CDF 


1108 




0B04 


4E75 






0B06 








0B06 








0B06 








0B06 


207C 


OOFC 


DD81 


OBOC 


0028 


OOOE 


0004 


0B12 


0210 


OOFl 




OBI 6 


8510 






0B18 


0228 


00E3 


0016 


OBIE 


0028 


0010 


0016 


0B24 








0B24 








0B24 








0B24 


4A39 


OOFC 


C031 


0B2A 


6A10 






0B2C 


0839 


0005 


OOFC C031 


0B34 


6606 






0B36 


1600 






0B38 


E40B 






0B3A 


D003 






0B3C 








0B3C 


1140 


0010 




0B40 


117C 


OOOF 


0014 


0B46 








0B46 








0B46 








0B46 


363C 


OODO 




0B4A 


51CB 


FFFE 




0B4E 


51C9 


FFF6 





MOVEQ 
MOVEQ 



#0,D1 
#8,D2 



;and duration 

;and volume (medivim) 

;then fall thru to tone routine 



RMOOO 
BMOOO 



Routine to beep the speaker 

Assiomes regs set up as 

DO = desired frequency ($00 - $AA) 
Dl = duration (0 = .5 msec) 
D2 = volimie (0,2,4, ... ,E) 



TONE 

# 
# 
#@1 



MOVEM.L A0/A4/D3,-(SP) 
BSRS4 T0NE2 

LEA @1,A4 

BRA.S T0NE2 

MOVEM.L (SP)+,A0/A4/D3 
RTS 



;save regs 
;go do tone 



; restore and exit 



separate entry point for call without memory usage 



T0NE2 MOVEA.L #VIA1BASE,A0 

ORI.B #$0E,DDRB1(A0) 
ANDI.B #$F1,ORB1(AO) 
OR.B D2,ORB1(AO) 
ANDI . B #$E3 , ACRl (AO ) 
ORI.B #$10, ACRl (AO) 

; check system type 



TST.B 


DISKROM 


BPL.S 


@3 


BTST 


#SLOTMR , DISKROl 


BNE.S 


@3 


MOVE.B 


D0,D3 


LSR.B 


#2,D3 


ADD.B 


D3,D0 



@3 



MOVE . B DO , T2CL1 (AO ) 
MOVE.B #$0F,SHR1(A0) 



;set VIA ptr 

;set volume bits for output 

; clear and then 

; set voliame bits 

; clear shift mode bits 

;set shift reg for continuous rotate 



;test for Lisa 1 board 

;no changes if yes 

;else check if slow timers 

;skip if yes 

;else adjust input parm 

; by factor of .25 



;set frequency 

;set for square wave and trigger 



CHG014 
CHG014 
CHG029 
CHG029 
CHG014 
CHG014 
CHG014 



Do time delay 



@1 MOVE.W #$00D0,D3 

@2 DBF D3,@2 

DBF Dl,@l 



enter with count in Dl (about . 5 msec per count) 
;set delay constant 
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0B52I 
0B52I 
0B58I 
0B58I 
0B5AI 
0B5AI 
0B5AI 
0B5AI 
0B5AI 
0B5AI 
0B5AI 
0B5AI 
0B5AI 
0B5EI 
0B62I 
0B62I 
0B62I 
0B66I 
0B6AI 
0B70I 
0B72I 
0B76I 
0B76I 
0B7AI 
0B7EI 
0B82I 
0B88I 
0B8AI 
0B8EI 
0B8EI 
0B92I 
0B92I 
0B96I 
0B96I 
0B96I 
0B96I 
0B96I 
0B96I 
0B96I 
0B96I 
0B96I 
0B96I 
0B96I 
0B96I 
0B96I 
0B96I 
0B96I 



0228 00E3 0016 
4ED4 



SILENCE ANDI.B #$E3,ACR1 (AO) 
RTS4 
# JMF (A4) 



.IF DIAGS = 1 



; disable tone 
;and return 



Routine to handle I/O board selection errors. Does check for access 
of other I/O board devices to try to pinpoint error. 



08C7 0010 
3E7C 0480 



47FA 0012 
21CB 0008 
207C OOFC D901 
4A10 
6000 FCOC 

08C7 OOOB 
47FA 0012 
21CB 0008 
207C OOFC DD81 
4A10 
6000 FC96 

08C7 0001 

6000 0806 



NOIO BSET #RS232B,D7 

MOVE #STKBASE,SP 
; try access of other I/O board 

LEA N0I02 ,A3 

MOVE . L A3 , BUSVCTR 

MOVE . L #VIA2BASE , AO 

TST.B (AO) 

BRA VIA2TST 

N0I02 BSET #VIA2,D7 

LEA NOI03,A3 

MOVE . L A3 , BUSVCTR 

MOVE . L #VIA1BASE , AO 

TST.B (AO) 

BRA.S SCRNTST 

N0I03 BSET #CPUSEL,D7 

BRA TSTCHK 

.ENDC 

.INCLUDE RM248.S.TEXT 

.PAGE 



;set sec port B access error 
; restore stack pointer 
devices 

;set up new bus error vector 



CHG027 



;set base address 


CHG027 


;try access 




; return to testing if OK 


CHG027 


;set VIA #2 error also 


CHG027 


;try final access to VIA #1 


CHG027 


;set base address 


CHG027 


;exit if OK 


CHG027 


;inost likely CPU board error 




;go report errors 


CHG027 



VIDEO CIRCUITRY TEST 

The following test checks the vertical retrace signal of the 

video circuitry to verify it is toggling. 

Register usage: 

DO = timeout count AO = unused 

Dl = unused Al = unused 

D2 = bit pointer A2 = unused 

D3 = unused A3 = address to disable VTIR 
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0B96 






0B96 






0B96 






0B96 






0B96 






0B96 






0B96 






0B96 






0B96 


6100 


25E8 


0B9A 


327C 


1DF6 


0B9E 


6100 


29D4 


0BA2 






0BA2 






0BA2 


267C 


OOFC E018 


0BA8 


287C 


OOFC EOIA 


OBAE 


2A7C 


OOFC F801 


0BB4 






0BB4 


303C 


0DF4 


0BB8 


7402 




OBBA 






OBBA 


4A53 




OBBC 


4A54 




OBBE 


0515 




OBCO 


6706 




0BC2 


51C8 


FFFA 


0BC6 


600C 




0BC8 






0BC8 


4A53 




OBCA 


4A54 




OBCC 


0515 




OBCE 


6704 




OBDO 


4A53 




0BD2 


600C 




0BD4 






0BD4 






0BD4 






0BD4 


08C7 


0002 


0BD8 


4A87 




OBDA 


6BC6 




OBDC 


6000 


07BC 


OBEO 






OBEO 






OBEO 






OBEO 






OBEO 






OBEO 






OBEO 







D4 = unused 
D5 = unused 



A4 = address to enable VTIR 

A5 = address of bus status register 



VIDTST 



.IF 



RCMAK = 



.IF USERINT = 1 



BSR 



MAKETEST 



; display test icons 





MOVEA 


#CPUSTRT,A1 


;hilite CPU board icon 




BSR 


INVICON 






.ENDC 






VIDCHK 










MOVEA. L 


#VTIRDIS,A3 


;ADDRESS FOR DISABLING VTIR 




MOVEA. L 


#VTIRENB,A4 


;ADDRESS FOR VTIR ENABLE 




MOVEA. L 


#STATREG,A5 


; STATUS REGISTER LOCATION FOR BYTE OPS 




MOVE 


#$0DF4,D0 


;SET TIMEOUT COUNT FOR ABOUT 20 MS 




MOVEQ 


#VRBIT,D2 


;VR BIT LOCATION 




TST 


(A3) 


; RESET THEN 




TST 


(A4) 


; ENABLE VTIR 


@1 


BTST 


D2,(A5) 


;WAIT FOR LOW 




BEQ.S 


@2 


;EXIT IF YES 




DBF 


D0,@1 


;ELSE LOOP (ABOUT 5 . 6 MS PER LOOP) 




BRA.S 


VIDERR 


;AND SET ERROR IF TIMEOUT 


@2 


TST 


(A3) 


; RESET VTIR 




TST 


(A4) 


;THEN RENABLE 




BTST 


D2,(A5) 


; SHOULD BE HIGH BY NOW 




BEQ.S 


VIDERR 


;G0 TO ERROR EXIT IF NOT 




TST 


(A3) 


; DISABLE VTIR 




BRA.S 


VIDXIT 


;and go to exit 


; Error exit 






VIDERR 


BSET 


#VID,D7 


;SET ERROR INDICATOR 




TST.L 


D7 


;in loop mode? 




BMI.S 


VIDCHK 


; restart test if yes 




BRA 


TSTCHK 


;else go to error msg routine 


; Normal exit 






VIDXIT 









; Now, try reading of system serial number 
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OBEOI 
OBEOI 
OBEOI 
0BE4I 
0BE6I 
0BE8I 
OBEEI 
OBFOI 
0BF2I 
0BF6I 
0BF6I 
0BF6I 
0BF6I 
0BF6I 
0BF6I 
0BF6I 
0BF6I 
0BF6I 
0BF6I 
0BF6I 
0BF6I 
0BF6I 
0BF6I 
0BF6I 
0BF6I 
0BF6I 
0BF6I 
0BF6I 
0BF6I 
0BF6I 
0BF6I 
0BF6I 
0BF6I 
0BF6I 
0BF6I 
0BF6I 
0BF6I 
0BF6I 
0BF6I 
0BF6I 
OBFAI 
OBFAI 
OBFAI 
OBFCI 
OCOOI 
OCOOI 
OCOOI 



307C 0240 

6110 

64EC 

4A79 OOFC E018 

4A87 

6BB0 

6000 0168 



MOVEA 


#SERNUM,A0 


BSR.S 


RDSEBN 


BCC.S 


VIDERR 


TST 


VTIRDIS 


TST.L 


D7 


BMI.S 


VIDCHK 


BRA 


PARTST 



;ptr for save of serial # 

;go do read 

;exit if error 

;else disable vertical retrace 

; check for loop mode 

;if not, fall thru to next test 

;and go on to next test 



.PAGE 



Routine to read system serial # from video prom. 
Written by Ken Schmal and Ron Hochsprung. 

Register Usage: 

teitporary and iterative DO 

ten^x^rary and iterative Dl 

teitporary and iterative D2 

teirporary and iterative D3 

boolean FOUND to be returned D4 

pointer to save area for serial # AO 

SNl & SN2 pointer Al 

STATUS REGISTER pointer A2 

SCRACH array pointer A3 

SCRACH END pointer A4 

Tag const A5 
static link and stack frame 

base pointer register A6 

Returns with carry bit set if all OK. 
All registers except D7 and AO trashed. 



RDSERN 



48E7 0180 



40E7 
007C 0700 



MOVEM.L 



D7/A0,-(SP) 



turn off all interrupts 
move SR, - (sp) 

ori.w #$0700, SR 



;save regs 



;save the present status register 
;set interrupt to level 7 



now set up registers for the algorithm 
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ocooi 
ocooi 

OCOOI 
0C06I 

ococi 

OCIOI 
0C14I 
0C18I 
OCICI 
OCICI 
OCICI 
OCICI 
OCICI 
OCICI 
OCICI 
OCICI 
OCICI 
OCICI 
OCICI 
OCIEI 
0C26I 
0C2CI 
0C32I 
0C34I 
0C36I 
0C36I 
0C36I 
0C36I 
0C36I 
0C36I 
0C3AI 
0C3EI 
0C40I 
0C42I 
0C44I 
0C46I 
0C4AI 
0C4EI 
0C50I 
0C50I 
0C50I 
0C50I 
0C50I 
0C50I 
0C50I 
0C50I 
0C50I 



227C OOFE 8000 
247C OOFC F801 
4E56 FF18 
4 TEE FF18 
49FA 0142 
2D48 FFF8 



move.l 

move.l 

link 

lea 

lea 

move.l 



#Snimi, al 

#Statreg,a2 

a6, #dStack 

dScrach(a6) , a3 

Tag,a4 

aO ,dSavArry (a6) 



/location in MMU of SNl & SN2 
/Status Register pointer 
/make room for SCRACH 
/get pointer for SCRACH 



first we get the block out of the vertical half 



sync up to the vertical retrace bit 



GetBitsl : 



7202 

2D7C 0000 0007 FFFC 

4279 OOFC E018 

4279 OOFC EOIA 

0312 

66FC 



@1: 



moveq 
move.l 

clr 
clr 
btst 
bne.s 



#2, dl 

#BytesPerRead,dLcnt (a6) 

VTIRDIS 

VTIRENB 

dl, (a2) 

@1 



/vertical retrace is bit #2 
/read this many bytes 
/clear vertical retrace bit 
/set vertical retrace interrupt 
/wait until it's true 



read the first block 



4C91 OOFF 
4893 OOFF 
508B 
508B 
4E71 
7008 

53AE FFFC 
5FC8 FFFE 
6EE6 



@3: 



@4: 



movem 

movem 

addg.l 

addg.l 

nop 

moveq 

subq.l 

dble 

bgt.s 



(al) , d0-d7 
d0-d7, (a3) 
#8, a3 
#8, a3 

#dlycnst-l, dO 
#1, dLcnt(a6) 
dO, @4 
@3 



then we get the block out of the horizontal half 



kill time until we're near the last vertical retrace line 



GetBits2 : 
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0C50I 
0C58I 
0C5CI 
0C60I 
0C60I 
0C60I 
0C60I 
0C60I 
0C60I 
0C64I 
0C68I 
0C6AI 
0C6CI 
0C6EI 
0C70I 
0C74I 
0C78I 
0C7AI 
0C7AI 
0C7AI 
0C7AI 
0C7AI 
0C7AI 
0C80I 
0C82I 
0C82I 
0C82I 
0C86I 
0C88I 
0C8CI 
0C8CI 
0C8CI 
0C8CI 
0C90I 
0C92I 
0C94I 
0C94I 
0C94I 
0C94I 
0C98I 
0C98I 
0C98I 
0C9CI 
OCAOI 
0CA2I 
0CA6I 
0CA6I 



2D7C 0000 0007 FFFC 
303C OOAB 
51C8 FFFE 



4C91 OOFF 
4893 OOFF 
508B 
508B 
4E71 
7008 

53AE FFFC 
5FC8 FFFE 
6EE6 



4279 OOFC E018 
7801 



47EE FF18 
284B 
D8FC 0070 



6100 007C 

4A44 

6764 



6100 009E 



47EE FF18 
D6FC 0070 
284B 
D8FC 0070 

6100 0062 



@1: 



move.l 
move.w 
dbra 



#BytesPerRead, dLcnt(a6) ;get the last few bytes 
#TKiller-l, dO ;time killer constant 

dO, @1 ;loop 



read the second or last block 



@2: 



@3: 



movem 

movem 

addq.l 

addq.l 

nop 

moveq 

subq.l 

dble 

bgt.s 



(al) , d0-d7 
d0-d7, (a3) 
#8, a3 
#8, a3 

#dlycnst-l, dO 
#1, dLcnt(a6) 
dO, @3 
@2 



now we have to find sync bytes and extract the bit stream 



clr 
moveq 

GetBytes : 

lea 

move.l 

adda 



VTIRDIS 
#1, d4 



dScrach(a6) , a3 
a3, a4 
#HalfSize, a4 



;tum off vertical retrace 
/initialize FOUND to true 



/pointer to 1/2 Scrach Array pointer 
/pointer to end of 1/2 Scrach Array 



RMOOO 



find the first sync byte 



bsr 

tst.w 

beq.s 



FindSync 

d4 

Exit 



/exit if no sync byte found 

now pull out the first block from the bit stream 

bsr GetNibbles 

here we look for the second sync byte. 



lea 
adda 
move.l 
adda 

bsr 



dScrach(a6) , a3 
#HalfSize, a3 
a3,a4 
#HalfSize,a4 

FindSync 



/pointer to 2/2 Scrach Array pointer 
/pointer to end of 2/2 Scrach Array 



RMOOO 
RMOOO 
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OCAA 


4A44 




OCAE 






OCAE 






OCAE 






OCAE 


6100 


0084 


0CB2 






0CB2 






0CB2 






0CB2 






0CB2 






0CB2 






0CB2 


206E 


FFF8 


0CB6 


4240 




0CB8 






0CB8 


1028 


0018 


OCBC 


343C 


0064 


OCCO 


C0C2 




0CC2 






0CC2 


1228 


0019 


0CC6 


343C 


OOOA 


OCCA 


C2C2 




OCCC 


D041 




OCCE 






OCCE 


1228 


OOIA 


0CD2 


D041 




0CD4 






0CD4 


4241 




0CD6 


4242 




0CD8 


4243 




OCDA 


1630 


1000 


OCDE 


D443 




OCEO 


5241 




0CE2 


0C41 


0018 


0CE6 


66F2 




0CE8 






0CE8 


1628 


OOIB 


OCEC 


D443 




OCEE 


0442 


003C 


0CF2 


B440 




0CF4 


6702 




0CF6 


4244 




0CF8 






0CF8 






0CF8 






0CF8 






0CF8 






0CF8 







tst.w d4 

beq.s Exit ; again, exit if no sync byte found 

now pull out second block from the bit stream 



bsr 



GetNibbles 



Check the checksum of the read data 



CheckSiam: 




move.l 


dSavArry(a6) ,a0 


clr.w 


dO 


move.b 


24(a0),d0 


move.w 


#100, d2 


mulu 


d2,dO 


move.b 


25(a0),dl 


move.w 


#10, d2 


mulu 


d2,dl 


add.w 


dl,dO 


move.b 


26(a0),dl 


add.w 


dl,dO 


clr.w 


dl 


clr.w 


d2 


clr.w 


d3 


@2: move.b 


0(aO,dl) ,d3 


add.w 


d3,d2 


addq.w 


#l,dl 


dtpi.w 


#24, dl 


bne.s 


@2 


move.b 


27 (aO), d3 


add.w 


d3,d2 


subi.w 


#4 * $F, d2 


diip. w 


dO,d2 


beq.s 


@3 


clr.w 


d4 



@3: 



job well done, lets go home 



Exit: 
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0CF8 


4E5E 




OCFA 


46DF 




OCFC 


4CDF 


0180 


ODOO 


4279 


OOFC EOIA 


0D06 


E24C 




0D08 


4E75 




ODOA 






ODOA 






ODOA 






ODOA 






ODOA 






ODOA 






ODOA 






ODOA 


4280 




ODOC 


7202 




ODOE 


341B 




ODIO 


E34A 




0D12 


E310 




0D14 


B9CB 




0D16 


660A 




0D18 


D7FC 


FFFF FF90 


ODIE 


5341 




0D20 


670E 




0D22 


OCOO 


OOFF 


0D26 


66E6 




0D28 


E948 




0D2A 


E808 




0D2C 


30C0 




0D2E 


4E75 




0D30 






0D30 


4244 




0D32 


4E75 




0D34 






0D34 






0D34 






0D34 






0D34 






0D34 


7406 




0D36 


7208 




0D38 


4280 




0D3A 


E3DB 




0D3C 


E310 




0D3E 


B9CB 




0D40 


6606 




0D42 


D7FC 


j.'j.'jj'jj' j.'j.'90 


0D48 


5341 




0D4A 


66EE 





@1 



unlk 

move 

MOVEM.L 

clr 

LSR 

RTS 



a6 

(sp)+, SR 

(SP)+,D7/A0 

VTIRENB 

#1,D4 



.PAGE 

subroutine to find a sync byte 



FindSync : 

clr.l 
moveq 

@1: move.w 

Isl.w 
roxl.b 
ciiipa. 1 
bne.s 
adda.l 
subq 
beq.s 

@2: citpi.b 

bne.s 
Isl.w 
Isr.b 
move.w 
rts 



@3: 



clr.w 
rts 



dO 

#2, dl 

(a3) + , d2 

#1, d2 

#1, dO 

a3, a4 

@2 

#-HalfSize, a3 

#1, dl 

@3 

#$Off, dO 

@1 

#4, dO 

#4, dO 

dO, (aO)+ 



d4 



/restore status reg 

;and regs 

; re-enable interrupts 

; shift to set/reset error indicator 

; and exit 



two 



passes to find the sync byte 



get SNl 

assure the buffer ' s circular 

if it ' s at the end then 
check if it's the second try 
and exit if so 

test here if it's a sync byte 

no: loop again 

yes: adjust the byte 

save it 
and return 

;uh, oh. No sync byte, 
/clear FOUND and return 



subroutine to pull out a 14 nibble block from the bit stream 



GetNibbles : 





moveq 


@1: 


moveq 




clr.l 


@2: 


Isl 




roxl.b 








bne.s 




adda.l 


@3 


subq 




bne.s 



#BytesPerRead-l , d2 

#8, dl 

dO 

(a3) + 

#1, dO 

a3, a4 

@3 

#-HalfSize, a3 

#1, dl 

@2 



8 bits /byte 

get SNl in the next scrach word 
shift it into the save buffer 
assure a circular bufer 



decrement bit/byte counter 
loop again if still in byte 
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0D4C 


E948 






0D4E 


E808 






0D50 


30C0 






0D52 


5342 






0D54 


66E0 






0D56 


4E75 






0D58 








0D58 


4B41 


5300 




0D5C 








0D5C 








0D5C 








0D5C 








0D5C 








0D5C 








0D5C 








0D5C 








0D5C 








0D5C 








0D5C 








0D5C 








0D5C 








0D5C 








0D5C 








0D5C 








0D5C 








0D5C 








0D5C 








0D5C 








0D5C 








0D5C 


2478 


007C 




0D60 


47FA 


0092 




0D64 


21CB 


007C 




0D68 


2A7C 


OOFC 


F801 


0D6E 


4A39 


OOFC 


EOlC 


0D74 


4282 






0D76 


4284 






0D78 


303C 


OlFF 




0D7C 


307C 


0300 




0D80 


3610 






0D82 


2248 






0D84 


D3F8 


02A4 




0D88 








0D88 


4A39 


OOFC 


E006 


0D8E 


3080 






0D90 


4A39 


OOFC 


E004 


0D96 








0D96 


4A39 


OOFC 


EOIE 



Tag 



Isl.w 


#4, dO 


Isr.b 


#4, dO 


move 


dO, (aO)+ 


subq 


#1, d2 


bne.s 


@1 


rts 




.word 


$4b41,$5300 



/separate the nibbles 

;save these nibbles 
/decrement byte/SN counter 
/loop again if still more to go 



.PAGE 



PARITY CIRCUITRY TEST 

The purpose of this test is to verify the operation of the parity checking 

logic by forcing a parity error and ensuring it is caught. 

Register usage: 

AO 

Al 

A2 

A3 

A4 

A5 

A6 



PARTST 



DO = pattern written 

Dl = read results 

D2 = NMI indicator 

D3 = save of memory contents 



D4 



= save of error addr 
D5 = unused 
D6 = unused 



latch 



logical address used for test 

corresponding physical address 

save for NMI vector 

scratch 

unused 

address of bus status register 

unused 



.ENDC 




.IF R0M16K = 1 


MOVE.L 


NMIVCT,A2 


LEA 


WWPERR,A3 


MOVE.L 


A3,NMIVCT 


MOVEA.L 


#STATREG,A5 


TST.B 


PAROFF 


CLR.L 


D2 


CLR.L 


D4 


MOVE 


#$01FF,D0 


MOVEA 


#$300, AO 


MOVE 


(AO) ,D3 


MOVEA.L 


A0,A1 


ADDA.L 


MINMEM,A1 


TST.B 


DG20N 


MOVE 


DO, (AO) 


TST.B 


DG20FF 



TST.B PARON 



/SAVE STANDARD NMI VECTOR 

/THEN SET UP NEW PARITY ERROR (NMI) VECTOR 

/setup status reg ptr for byte ops 
/disable parity initially 
/clear regs for result use 

/SET UP PATTERN FOR WRITE 

/SET UP ADDRESS FOR USE (in already verified mem) 

/SAVE ITS CONTENTS 

/CC»1PUTE CORRESPONDING 

/ PHYSICAL ADDRESS 

; ENABLE WRITE WRONG PARITY FUNCTION 
/DO WRITE TO CREATE BAD PARITY 
/DISABLE WWP 

/ENABLE PARITY ERROR DETECTION 



RMOOO 
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0D9C 


4A42 




0D9E 


6632 




ODAO 






ODAO 


3210 




0DA2 


4E71 




0DA4 


4A42 




0DA6 


672A 




0DA8 






0DA8 


0815 


0001 


ODAC 


6624 




ODAE 


3839 


OOFC FOOD 


0DB4 


4A39 


OOFC EOlC 


ODBA 


EB8C 




ODBC 


B3C4 




ODBE 


6612 




ODCO 


21CA 


007C 


0DC4 


4240 




0DC6 


4640 




0DC8 


3080 




ODCA 


4A39 


OOFC EOIE 


ODDO 


6016 




0DD2 






0DD2 






0DD2 


08C7 


0003 


0DD6 


4A87 




ODDS 


6B82 




ODDA 


4A39 


OOFC EOlC 


ODEO 


21CA 


007C 


0DE4 


6000 


05B4 


ODES 






ODES 






ODES 






ODES 


4A87 




ODEA 


6B00 


FF70 


ODEE 


6100 


27C6 


0DF2 


600E 




0DF4 






0DF4 






0DF4 






0DF4 


7401 




0DF6 


4E73 




ODFS 






ODFS 






ODFS 






ODFS 






ODFS 






ODFS 


7032 





TST 


D2 


BNE.S 


PARERR 


MOVE 


(AO) ,D1 


NOP 




TST 


D2 


BEQ.S 


PARERR 


; Check that parity error 


BTST 


#PBIT, (A5) 


BNE.S 


PARERR 


MOVE 


MEALTCH,D4 


TST.B 


PAROFF 


LSL.L 


#5,D4 


CMPA.L 


D4,A1 


BNE.S 


PARERR 


MOVE.L 


A2,NMIVCT 


CLR 


DO 


NOT 


DO 


MOVE 


DO, (AO) 


TST.B 


PARON 


BRA.S 


PARXIT 


; Error exit 




PABERR BSET 


#PAR,D7 


TST.L 


D7 


BMI.S 


PARTST 


TST.B 


PAROFF 


MOVE.L 


A2,NMIVCT 


BRA 


TSTCHK 


; Normal exit 




PARXIT TST.L 


D7 


BMI.S 


PARTST 


BSR 


CHKCPU 


BRA.S 


MEMTST2 



; SHOULDN'T HAVE INTERRUPT YET 
;EXIT IF ERROR 

;D0 READ - PARITY ERROR SHOULD OCCUR 
;GIVE A LITTLE EXTRA TIME 
;NMI RECEIVED? 
; ERROR IF NO 
and failing address correctly caught 

PARITY ERROR BIT SET? 
:EXIT IF NOT 
:GET ERROR ADDRESS 
: disable parity to clear error bit 
rNORMALIZE THE ADDRESS 

SAME ADDRESS AS WRITTEN TO? 
:EXIT IF ERROR 
:ELSE RESTORE NMI VECTOR 



; "clear" bad parity 
;reenable parity 
;and skip to exit 



;SET INDICATOR 

;in loop mode? 

; restart if yes 

;else ensure parity disabled 

; RESTORE NMI VECTOR 

;AND ABORT FURTHER TESTING 



; check for loop mode 

; restart test if yes 

;place check over CPU (all tests OK) 

;else go do memory test 



NMI routine for parity error checking 



WWPERR MOVEQ 
RTE 



#1,D2 



;SET INDICATOR 
;AND RETURN 



Bus error handler for VIA #1 use 



VIAIVCT MOVEQ #EVIA1,D0 



;SET ERROR CODE 
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ODFAI 


08C7 OOOA 




ODFEI 


6000 FB18 




0E02I 






0E02I 






0E02I 






0E02I 






0E02I 






0E02I 






0E02I 






0E02I 






0E02I 






0E02I 






0E02I 






0E02I 






0E02I 






0E02I 






0E02I 






0E02I 






0E02I 






0E02I 






0E02I 






0E02I 






0E02I 


327C 1E04 




0E06I 


6100 276C 




OEOAI 






OEOAI 






OEOAI 


6100 F8D6 




OEOEI 






OEOEI 


43FA 0104 




0E12I 


21C9 007C 




0E16I 






0E16I 






0E16I 






0E16I 






0E16I 


0807 OOIE 




OEIAI 


6704 




OEICI 


7A01 




OEIEI 


6020 




0E20I 






0E20I 






0E20I 






0E20I 


6100 0A14 




0E24I 


650E 




0E26I 


0839 0006 OOFC 


C18D 


0E2EI 


6704 




0E30I 






0E30I 


7A02 





BSET 


#VIA1,D7 


BRA 


lOVCT 


.ENDC 




.PAGE 





;set indicator 

;AND GO HANDLE I/O EXCEPTION 

; (RCM16K) 



Now do full memory test with and without parity enabled. If parameter 
memory bit set for extended memory testing, memory tests executed in 
twice. If warm-start, execute only one pass with parity enabled. 
Uses registers: 



AO = starting address to test DO 

Al = ending address to test Dl 

A2 = unused D2 

A3 = save address for results D3 

A4 = return address D4 

A5 = unused D5 



used to consolidate test results 

scratch 

address increment 

test results for each 12 8K 

max test address 

pass count 



MEMTST2 



.IF R0M4K = 

.IF USERINT = 1 
MOVEA #MEMSTRT , Al 
BSR INVICON 
.ENDC 



BSR 



SETBUSVCT 



MEMLOOP 



LEA PRTYINT1,A1 
MOVE.L A1,NMIVCT 



;hilite memory board test icon 

; restore normal bus error vector 
; setup up vector for parity intrpt 



.IF R0M16K = 1 
First check if this is a warm-start 



BTST #WRMSTRT,D7 

BEQ.S @0 

MOVEQ #1,D5 

BRA.S @3 



; warm- s tart? 

;skip if not 

;else set count for one pass 

;skip to do it 



RMOOO 

CHG015 
CHG015 



CHG006 

CHG006 
CHG015 
CHG015 
CHG015 



Next check parameter memory to see if extended testing desired 



@0 BSR CHKPM 

BCS.S @1 

BTST #6,MEMC0DE 

BEQ.S @1 

MOVEQ #2,D5 



;go check parameter memory 
;skip if not valid to do only one pass 
;else check extended memory test indicator 
;exit if not set 

;i:un two passes for extended mode 



CHG015 
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0E32 


6002 




0E34 


7A01 




0E36 






0E36 






0E36 






0E36 


4A39 


OOFC EOlC 


0E3C 


612C 




0E3E 


660E 




0E40 


4A39 


OOFC EOIE 


0E46 


6122 




0E48 


6604 




0E4A 


5345 




0E4C 


66E8 




0E4E 






0E4E 


4A87 




0E50 


6BBC 




0E52 


0807 


0015 


0E56 


6600 


0542 


0E5A 


6100 


2762 


0E5E 


47FA 


F8A4 


0E62 


21CB 


007C 


0E66 


6000 


0198 


0E6A 






0E6A 






0E6A 






0E6A 






0E6A 






0E6A 






0E6A 






0E6A 






0E6A 






0E6A 






0E6A 






0E6A 






0E6A 


6118 




0E6C 






0E6C 






0E6C 


49FA 


0006 


0E70 


6000 


003E 


0E74 






0E74 


6704 




0E76 


08C7 


0015 


0E7A 


611C 




0E7C 


66EE 




0E7E 


0807 


0015 


0E82 


4E75 




0E84 







BRA.S @2 
@1 MOVEQ #1,D5 

; Run the memory tests 



@2 TST.B 


PAROFF 


BSR.S 


RUNTESTS 


BNE.S 


TSTDONE 


@3 TST.B 


PARON 


BSR.S 


RUNTESTS 


BNE.S 


TSTDONE 


SOBQ 


#1,D5 


BNE.S 


@2 


TSTDONE TST.L 


D7 


BMI.S 


MEMLOOP 


BTST 


#MEM,D7 


BNE 


TSTCHK 


BSR 


CHKMBRD 


LEA 


NMI,A3 


MOVE.L 


A3,NMIVCT 


BRA 


lOTST 



;go do it 

;run one pass for normal mode 



; first run with parity off 

;run test pass 

;skip if error 

;then run pass with parity on 

;run test pass 

;exit if error 

;decr pass count 

; continue testing until done 

;in loop mode? 

; restart if yes 

; memory error? 

; abort if yes 

;else signal memory OK 

; restore NMI vector 

;go on to next test 



CHG015 
CHG015 



CHG015 
CHG015 
CHG015 
CHG015 
CHG015 
CHG015 
CHG015 
CHG015 



CHG015 
CHG015 



Subroutine to run the memory tests - saves results as test proceeds 
Zero condition code bit set if no errors. 



RUNTESTS 

; Do the basic test 

BASICTST 





BSR.S 


TSTINIT 


CALL3 








BSR4 


RAMTEST 


# 


LEA 


@1,A4 


# 


BRA 


RAMTEST 


#@1 








BEQ.S 


@1 




BSET 


#MEM,D7 


@1 


BSR.S 


SAVRSLT 




BNE.S 


CALL3 




BTST 


#MEM,D7 




RTS 





;init for new test 



;skip if no errors 

;else set error indicator 

;save results 

;loop until done 

;set condition code 

;and exit 



CHG021 
CHG015 
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0E84 




0E84 




0E84 




0E84 




0E84 




0E84 




0E84 




0E84 




0E84 


7402 


0E86 


4842 


0E88 


2838 0110 


0E8C 


307C 0800 


0E90 


2242 


0E92 


367C 0186 


0E96 


4E75 


0E98 




0E98 




0E98 




0E98 




0E98 




0E98 


3003 


0E9A 


4843 


0E9C 


8640 


0E9E 


875B 


OEAO 


B889 


OKA? 


670A 


0EA4 


2049 


0EA6 


D3C2 


0EA8 


B889 


OEAA 


6C02 


OEAC 


2244 


OEAE 


4E75 


OEBO 




OEBO 




OEBO 




OEBO 




OEBO 




OEBO 




OEBO 




OEBO 




OEBO 




OEBO 




OEBO 




OEBO 




OEBO 




OEBO 




OEBO 





.ELSE 

.ENDC ;{RCM16K} 

.FA(S 

Subroutine to do initialization for memory tests 



MOVEQ 


#2,D2 


SWAP 


D2 


MOVE.L 


SCBNBASE,D4 


MOVEA 


#LC»1EM,A0 


MOVE.L 


D2,A1 


MOVEA 


#MEMRSLT,A3 


RTS 





;test in 128K increments 

; (sets D2 = $20000) 

;get max test address (base of screen) 

;set initial start 

; and ending address 

;set address of result area 



RMOOO 
PMOOO 



RMOOO 



Subroutine to save results and update ptrs . 



SAVRSLT MOVE 


D3,D0 


;get low results 


SWAP 


D3 


;get high results 


OR 


D0,D3 


; combine 


OR 


D3,(A3)+ 


; and save 


CMP.L 


A1,D4 


;at max test address? 


BEQ.S 


@1 


;exit if yes 


MOVEA. L 


A1,A0 


;else set new addresses 


ADDA.L 


D2,A1 


; to check next row of memory 


CMP.L 


A1,D4 


;in last segment? 


BGE.S 


@1 




MOVE.L 


D4,A1 


;set at base of video page 


@1 RTS 







.PAGE 



BASIC MEMORY TEST - writes pattern and its complement in memory location, 
then verifies by reading. Also does second scan as 
addressing check. Uses long word operations for speed. 
Inputs : 

AO 

Al 

A4 
Outputs : 

CCR zero bit set if no error 

D3 = OR mask of errors 
Uses registers: 

AO = current test address DO = current test pattern 



Starting address to test 
Ending address 
Return address 
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OEBO 






OEBO 






OEBO 






OEBO 






OEBO 






OEBO 






OEBO 






OEBO 






OEBO 


2A48 




0EB2 


203C 


AA55 A55A 


0EB8 


4680 




OEBA 


7600 




OEBC 


007C 


0010 


OECO 






OECO 


2080 




0EC2 


B090 




0EC4 


6706 




0EC6 






0EC6 


4DFA 


0004 


OECA 


6040 




OECC 






OECC 






OECC 


4680 




OECE 


2080 




OEDO 


B098 




0ED2 


670A 




0ED4 


5988 




0ED6 






0ED6 


4DFA 


0004 


OEDA 


6030 




OEDC 






OEDC 


5888 




OEDE 






OEDE 


E390 




OEEO 


4680 




0EE2 


B3C8 




0EE4 


66DA 




0EE6 






0EE6 






0EE6 


203C 


AA55 A55A 


OEEC 


204D 




OEEE 


7200 




OEFO 


4681 




0EF2 


007C 


0010 


0EF6 






0EF6 


B090 




0EF8 


6706 





Al = ending test address 

A2 = unused 

A3 = unused 

A4 = return address 

A5 = saved start address 

A6 = used for return address 



Dl = scratch 

D2 = unused 

D3 = OR mask of errors 

D4 = unused 

D5 = unused 

D6 = unused 



MOVE.L 


A0,A5 


MOVE.L 


#PATRN,DO 


NOT.L 


DO 


MOVEQ 


#0,D3 


ORI 


#$0010, SR 


MOVE.L 


DO, (AO) 


CMP.L 


(AO) ,D0 


BEQ.S 


RAMCHK2 


BSRS6 


RDERR 


LEA 


@1,A6 


BRA.S 


RDERR 



RAMCHK2 


NOT.L 


DO 




MOVE.L 


DO, (AO) 




CMP.L 


(AO)+,DO 




BEQ.S 


RAMNXT 




SUBQ.L 


#4,A0 




BSRS6 


RDERR 


# 


LEA 


@1,A6 


# 


BRA.S 


RDERR 


#@1 








ADDQ.L 


#4,A0 


RAMNXT 


ROXL.L 


#1,D0 




NOT.L 


DO 




CMPA.L 


A0,A1 




BNE.S 


RAMRW 



;save start address 

;get pattern 

;use coitplement first 

; clear for result use 

;set extend bit for use with pattern rotate 

;do write 

; verify 

;skip if OK 

;else save error bits 



;now use inverse 

;write to check for stuck bits 

;verify and bvmp address 

;skip if OK 

;else get error address 

;go save error bits 



;and restore next test address 



; create new pattern 
; invert for test 
;done? 
;loop if not 



; Now do address check - writes memory as all F ' s during scan 
ADRTST MOVE.L #PATRN,DO ; reinitialize 

MOVE.L A5,A0 ;get start address 

MOVEQ #0,D1 

NOT.L Dl ; final pattern for write 

ORI #$0010, SR ;set extend 



ADRCHK 



CMP.L 
BEQ.S 



(AO) ,D0 
ADRCLR 



; check contents 
;skip if OK 
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OEFA 






OEFA 


4DFA 


0004 


OEFE 


600C 




OFOO 






OFOO 


20C1 




0F02 


E390 




0F04 


B3C8 




0F06 


66EE 




0F08 






0F08 






0F08 






0F08 


4A83 




OFOA 






OFOA 


4ED4 




OFOC 






OFOC 






OFOC 






OFOC 


2210 




OFOE 


B181 




OFIO 


8681 




0F12 






0F12 


4ED6 




0F14 






0F14 






0F14 






0F14 






0F14 






0F14 






0F14 






0F14 






0F14 






0F14 






0F14 






0F14 






0F14 






0F14 






0F14 






0F14 






0F14 


6152 




0F16 


6600 


F7EC 


OFIA 


08C7 


0016 


OFIE 


2 ICO 


026C 


0F22 


21C8 


0268 


0F26 


2638 


02A4 


0F2A 


6100 


00C4 


0F2E 


0801 


0005 


0F32 


6604 







BSRS6 


RDERR 


# 


LEA 


@1,A6 


# 


BRA.S 


RDERR 


#@1 






ADRCLR 


MOVE.L 


Dl, (A0)+ 




ROXL.L 


#1,D0 




CMPA.L 


A0,A1 




BNE.S 


ADRCHK 



;else save errors 



; ' clear ' and go to next location 
; create next pattern 
;done? 
;loop if not 



; Check results 



TST.L D3 
RTS4 

JMP (A4) 



;set condition codes 



; Failure routine - save results and continue testing 



RDERR MOVE.L (AO) ,D1 

EOR.L D0,D1 

OR.L D1,D3 
RTS6 
# JMP (A6) 

.PAGE 



;do read again 
; isolate bad bits 
;save result 
;and return 



Phase 1 Parity error handler for memory tests. 

isolate parity error to chip level. 

Assiomes: 

DO = expected data pattern 

AO = error address or address + 4 

Uses registers : 

Dl = parity error address 

D2 = search size for byte in error 

D3 = low memory address 

Al = search address 



Objective for handler is to 



PRTYINTl 



BSR.S 


TSTSTAT 


BNE 


NMI 


BSET 


#MPAR,D7 


MOVE.L 


DO,XPCTDATA 


MOVE.L 


AO,XPCTADDR 


MOVE.L 


MINMEM,D3 


BSR 


GETPADDR 


BTST 


#5,D1 


BNE.S 


@1 



; check if parity error CHG015 

;skip if not CHG015 

;set error indicator CHG015 

;save data and address CHG015 

CHG015 

;get low memory address CHG015 

;read and convert parity address CHG015 

;main mem error? CHG015 

;skip if not CHG015 
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0F34I 
0F34I 
0F36I 
0F38I 
0F3CI 
0F42I 
0F46I 
0F46I 
0F46I 
0F46I 
0F4AI 
0F4EI 
0F50I 
0F52I 
0F58I 
0F5EI 
0F60I 
0F60I 
0F62I 
0F66I 
0F66I 
0F66I 
0F68I 
0F68I 
0F68I 
0F68I 
0F68I 
0F68I 
0F70I 
0F72I 
0F72I 
0F72I 
0F72I 
0F72I 
0F72I 
0F72I 
0F72I 
0F72I 
0F72I 
0F72I 
0F72I 
0F72I 
0F72I 
0F74I 
0F78I 
0F7CI 
0F80I 



743F 
600A 

343C 7FFF 
0281 FFFF 8000 
21C1 01A6 



43FA 002A 

21C9 007C 

9283 

2241 

4A39 OOFC EOlC 

4A39 OOFC EOIE 

4284 

1819 
51CA FFFC 



MOVEQ #MSRCHSZ-1,D2 

BRA.S @2 

@1 MOVE #VSRCHSZ-1,D2 

ANDI.L #VMSK,D1 

@2 MOVE.L D1,PEADDR 



; setup up search size for main mem 

;skip to do it 

; setup for video memory search 

;mask off undefined info 

;save error address 



Reset NMI vector and start search for exact address 



605E 



LEA PRTYINT2,A1 

MOVE.L A1,NMIVCT 

SUB.L D3,D1 

MOVE.L D1,A1 

TST . B PAROFF 

TST.B PARON 

CLR.L D4 

@3 MOVE.B (A1)+,D4 

DBRA D2,@3 

; Error did not repeat 

BRA.S PRIXIT 



setup new vector 

convert to logical address 
setup for use 
clear parity bit 

clear for use 

; search for parity error by byte 
;loop until found 



;go save error info and exit 



CHG015 
CHGOIS 
CHGOIS 
CHGOIS 
CHGOIS 

CHGOIS 

CHGOIS 
CHGOIS 
CHGOIS 
CHGOIS 
CHGOIS 
CHGOIS 
CHGOIS 

CHGOIS 
CHGOIS 

CHGOIS 
CHGOIS 



Subroutine to check for parity error 



0839 0001 OOFC F801 
4E7S 



TSTSTAT BTST #1,STATREG ; check for parity error 

RTS ; return with condition code set 



CHGOIS 
CHGOIS 



Parity error handler , phase 2 . 

Assiomes: 

Al = error address + 1 
DO = expected data (long) 
D4 = error data (byte) 

Uses registers: 

Dl = error address 
D2 = scratch 



PRTYINT2 



61F4 

6600 F78E 
6100 0076 
21C1 0278 
93FC 0000 0001 



BSR.S TSTSTAT 

BNE NMI 

BSR GETPADDR 

MOVE . L Dl , PEADR2 

SUBA.L #1,A1 



; parity error? 

;skip if not to handle NMI 

;get error address 

;save it 

;get actual address 



CHGOIS 
CHGOIS 
CHGOIS 
CHGOIS 
CHGOIS 
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0F86 


21C9 


0270 




0F8A 


21C4 


0274 




0F8E 


0801 


0005 




0F92 


6632 






0F94 








0F94 


2209 






0F96 


0281 


0000 


0003 


0F9C 


2401 






0F9E 


6706 






OFAO 








OFAO 


E188 






0FA2 


5341 






0FA4 


66FA 






0FA6 








0FA6 


E198 






0FA8 


0280 


0000 


OOFF 


OFAE 


B900 






OFBO 


671E 






0FB2 


0802 


0000 




0FB6 


6602 






0FB8 


E148 






OFBA 








OFBA 


367C 


0186 




OFBE 


2809 






OFCO 


2600 






0FC2 


6100 


F8B0 




0FC6 








0FC6 


4A39 


OOFC 


EOlC 


OFCC 


6000 


F796 




OFDO 








OFDO 








OFDO 








OFDO 


2209 






0FD2 


0801 


0000 




0FD6 


6708 






0FD8 


IIFC 


0014 


027D 


OFDE 


6006 






OFEO 


IIFC 


0009 


027D 


0FE6 








0FE6 


7411 






0FE8 


E4A9 






OFEA 


llCl 


027C 




OEBE 


60D6 






OFFO 








OFFO 








OFFO 








OFFO 









@1 



@2 



@3 



PRIXIT 



MOVE . L Al , ACTADDR 

MOVE . L D4 , ACTDATA 

BTST #5,D1 

BNE . S PRIXIT 

MOVE.L A1,D1 

ANDI.L #ADRMSK,D1 

MOVE.L D1,D2 

BEQ . S @2 



LSL.L 


#8, DO 


SOBQ 


#1,D1 


BNE.S 


@1 


ROL.L 


#8, DO 


AMDI.L 


#$FF,DO 


EOR.B 


D4,D0 


BEQ.S 


PCERR 


BTST 


#0,D2 


BNE.S 


@3 


LSL 


#8, DO 


MOVEA 


#MEMRSLT,A3 


MOVE.L 


A1,D4 


MOVE.L 


D0,D3 


BSR 


SCRNSAV 


TST.B 


PAROFF 


BRA 


EXCPl 



save address and data 

video error? 
skip if yes 

;get error address 

; setup up rotate count 

;save it 

;skip if pre-rotate not needed 

shift e:^ected data to high byte 



; shift to low byte 

; strip unneeded info 

; isolate bad bits 

;skip if no data error 

; check if high or low byte error 

;skip if low byte 

;else shift to high byte 

;set ptr to save area 
;set error address 
;and error bits 
;then go save data 

; disable parity 
;and go to exit 



no data error - must be parity chip failure; decode to chip id 



PCERR MOVE.L A1,D1 

BTST #0,D1 

BEQ.S @1 

MOVE.B #$14,PCHIP 

BRA.S @2 

MOVE.B #9,PCHIP 



@1 
@2 



MOVEQ #17, D2 

LSR.L D2,D1 

MOVE.B di,pc:hprow 

BRA.S PRIXIT 



get error address 

check if odd or even 

skip if even 

bad parity chip in low word 

bad chip in high word 

; calculate row address 
; for parity error 
;save row info 
;and exit 



010015 
010015 
OIG015 
OIG015 

010015 
OIG015 
OIG015 
OIG015 

OIG015 
OIG015 
OJG015 

O1G015 
OIG015 
OIG015 
OIG015 
OIG015 
OIG015 
OIG015 

OIG015 
OIG015 
OIG015 
OIG015 

OIG015 
OIG015 

OIG015 

OJG015 
OIG015 
OIG015 
OIG015 
OIG015 
OIG015 

OIG015 
OIG015 
OIG015 
OIG015 



Subroutine to get parity error address 
Returns Dl = error address 



Computer Boot ROM 2.48 Listing • 91 of 265 



OFFOI 
OFFOI 
OFFOI 
OFFOI 
0FF2| 
0FF8I 
OFFCI 
OFFEI 
10001 
10001 
10001 
10001 
10001 
10001 
10001 
10001 
10001 
10001 
10001 
10001 
10041 
10081 
10081 
10081 
10081 
10081 
10081 
10081 
10081 
10081 
10081 
10081 
10081 
10081 
10081 
10081 
10081 
10081 
10081 
10081 
10081 
10081 
10081 
10081 
10081 
10081 
10081 





GETPADDR 








4281 


CLR.L 


Dl 


; clear for use 


CHG015 


3239 OOFC FOOO 


MOVE 


MEALTCH,D1 


;read error latch 


CHGOIS 


31C1 OlAA 


MOVE 


D1,ADKLTCH 


;save it 


CHGOIS 


EB89 


LSL.L 


#5,D1 


; convert to physical address 


CHGOIS 


4E75 


RTS 
.PAGE 






CHGOIS 




; Continue with I/O board testing 





lOTST 



327C 1E12 
6100 2S6E 



.ELSE 
.ENDC 

.IF USERINT = 1 
MOVEA #I0STRT,A1 
BSR INVICON 
.ENDC 

.IF FULLSCC = 1 



: {RCM4K} 
: {R0M4K} 



;hilite I/O board test icon 



sec Test (Checks RS232 port controller) 

The sec interrupt vector is written and read with all 8 bit patterns 
to check sec addressing. An internal loopback test is then done on 
channel B. 

The chip is always left in an initial state as follows: 
both channels are reset 
master interrupt enable is reset 
DTR, RTS outputs set high on channel B 

Runs with interrupts off, uses stack. Uses registers: 



RM014 



CHGOll 



AO = sec address 
A2 = scratch 



DO = error indicator 
Dl = scratch 
D2 = scratch 
D3 = scratch 



Errors saved in DO and stored in low memory as follows: 

0000 0001 -> sec vector read/write error (accessed via channel A) 
0000 0010 -> channel B transmit buffer empty timeout 



RM014 
RM014 
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1008 




1008 




1008 




1008 




1008 




1008 


47FA 00E4 


lOOC 


21CB 0008 


1010 


6100 OOBE 


1014 


5488 


1016 


7200 


1018 


7000 


lOlA 




lOlA 




lOlA 


lOBC 0002 


lOlE 




lOlE 


3E97 


1020 


1410 


1022 


B401 


1024 


6704 


1026 


7001 


1028 


6064 


102A 


3E97 


102C 


lOBC 0002 


1030 


5281 


1032 


1081 


1034 


66E4 


1036 


6010 


1038 




1038 




1038 




1038 




1038 




1038 




1038 




1038 




1038 




1038 


09 00 


103A 


04 4D 


103C 


OB 50 


103E 


OC 00 


1040 


OD 00 


1042 


OE 13 


1044 


03 CI 


1046 


05 EA 


1048 


0000 0010 


1048 




1048 


45FA FFEE 



0000 0100 -> channel B receive buffer full timeout 
0000 1000 -> channel B data coitpare error 



BM014 
BM014 



SrTTF.ST T.F.a 


SCCVCT,A3 


MOVE.L 


A3,BUSVCTR 


BSR 


RSTSCC 


ADDQ.L 


#ACTL,A0 


MOVEQ 


#0,D1 


MOVEQ 


#0,D0 


VECTLCWP 

MOVE.B 


#2,(A0) 


MOVE 


(SP) , (SP) 


MOVE.B 


(AO) ,D2 


CMP.B 


D1,D2 


BEQ.S 


@1 


MOVEQ 


#1,D0 


BRA.S 


SCCEXIT 


@1 MOVE 


(SP) , (SP) 


MOVE.B 


#2,(A0) 


ADDQ.L 


#1,D1 


MOVE.B 


Dl, (AO) 


BNE.S 


VECTLOOP 


BRA.S 


SETSCC 



;set up bus error vector 

; reset and set up AO for SCC 
; adjust SCC address for channel A 
;SCC interrupt vector starts out 
;no errors 



;test see write register 2 

; via channel A 

; delay 

;read unmodified vector 

;ok;? 

;branch if so 

; otherwise set error code 

;and exit 

; write next vector value 
; increment and delay 
;write it 

;go through 256 values 
;now go do loopback init 



(interrupt vector) 



BM014 



Now init channel B for max baud rate and internal loopback. 
External transmit is inhibited by setting DTK low. 



Initialization data for SCC: max baud RS-232 async communication 



b96data: 





.byte 


9, $00 




.byte 


4,$4D 




.byte 


11, $50 




.byte 


12, $00 




.byte 


13, $00 




.byte 


14, $13 




.byte 


3,$C1 




.byte 


5,$EA 


b961th 


.equ 


*-b96data 


SETSCC 


LEA 


B96DATA,A2 



; disable all interupts 

;xl6 elk, 2 stop bits, odd parity 

;baud rate gen elk to receiver, transmitter 

;set baud rate to max 

; enable baud rate gen, BR=PCLK, loopback 

;8 bits/char reev, enable receiver 

;DTR low, 8 bits/char xmit, enable xmit, CRC 



; setup channel B 



RM014 



RM014 



RM014 
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104C 


323C 


0010 


1050 


5588 




1052 


616A 




1054 






1054 






1054 


7200 




1056 


76FF 




1058 






1058 


0810 


0002 


105C 


6608 




105E 


51CB 


FFF8 


1062 


5440 




1064 


6024 




1066 


3E97 




1068 


1141 


0004 


106C 






106C 






106C 


0810 


0000 


1070 


6608 




1072 


51CB 


FFF8 


1076 


5840 




1078 


6010 




107A 


3E97 




107C 


1428 


0004 


1080 


B401 




1082 


6608 




1084 


76FF 




1086 


5201 




1088 


66CE 




108A 






108A 


6002 




108C 






108C 


5040 




108E 






108E 






108E 






108E 


IICO 


02AC 


1092 


6720 




1094 


0800 


0000 


1098 


6704 




109A 


08C7 


OOOF 


109E 


E248 




lOAO 


4A00 




10A2 


6704 




10A4 


08C7 


0010 


10A8 


6126 




lOAA 


4A87 





MOVE.W 


#B96LTH,D1 


SUBQ.L 


#ACTL,A0 


BSR.S 


WRITESCC 


; do the loopback test 


LPTKST MOVEQ 


#0,D1 


MOVEQ 


#-l,D3 


SCCLOOP 




BTST 


#TXBE, (AO) 


BNE.S 


SCCOUT 


DBRA 


D3, SCCLOOP 


ADDQ 


#2, DO 


BRA.S 


SCCLXIT 


SCCOUT MOVE 


(SP) , (SP) 



MOVE.B D1,SCCDATA(A0) 



SCCL00P2 



BTST 


#RXBF, (AO) 


BNE.S 


SCCIN 


DBRA 


D3,SCCLOOP2 


ADDQ 


#4, DO 


BRA.S 


SCCLXIT 


SCCIN MOVE 


(SP) , (SP) 


MOVE.B 


SCCDATA(AO) ,D2 


CMP.B 


D1,D2 


BNE.S 


SCCLERR 


MOVEQ 


#-l,D3 


ADDQ.B 


#1,D1 


BNE.S 


SCCLOOP 


SCCLXIT BRA.S 


SCCEXIT 


SCCLERR ADDQ 


#8, DO 


; exit, saving 


errors 


SCCEXIT MOVE.B 


DO,SCCRSLT 


BEQ.S 


@3 


BTST 


#0,D0 


BEQ.S 


@1 


BSET 


#RS232A,D7 


@1 LSR 


#1,D0 


TST.B 


DO 


BEQ.S 


@2 


BSET 


#RS232B,D7 


@2 BSR.S 


RSTSCC 


TST.L 


D7 



;set address for channel B 



go thru 256 bytes 
set up timeout count 

;wait for transmit buffer empty 



; report timeout error 



;wait for data byte to come in 



RMOOO 
RM014 



; update timeout count 
; increment data 
;just do it 256 times 



;save results 

; continue if OK 

; check for chan A error 



; check for chan B error 



; leave SCC at initial condition 
; looping required? 



RM014 



RM014 
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10 AC 


6B00 FF5A 


lOBO 


6000 02E8 


10B4 




10B4 


611A 


10B6 


4A87 


10B8 


6B00 FF4E 


lOBC 


604E 


lOBE 




lOBE 




lOBE 




lOBE 




lOBE 




lOBE 




lOBE 




lOBE 




lOBE 




lOBE 




lOBE 




lOBE 




lOBE 




lOBE 




lOBE 




lOBE 


1410 


lOCO 


6002 


10C2 


109A 


10C4 


51C9 FFFC 


10C8 


4E75 


lOCA 




lOCA 




lOCA 




lOCA 




lOCA 




lOCA 




lOCA 


02 00 


lOCC 


09 CO 


lOCE 


0000 0004 


lOCE 




lOCE 


05 82 


lODO 


0000 0002 


lODO 




lODO 




lODO 


207C OOFC D241 


10D6 


45FA FFF2 


lODA 


7204 


lODC 


61E0 


lODE 


700C 


lOEO 


6100 FAOO 



@3 



BMI 


S 


SCCTEST 


BRA 




TSTCHK 


BSR 


S 


RSTSCC 


TST 


L 


D7 


BMI 


S 


SCCTEST 


BRA 


S 


DSKTST 



; restart test if yes 
;else go report error 

; leave SCC at initial condition 

;in loop mode? 

; restart test if yes 

;else continue to next test 



RM014 



.PAGE 



WRITESCC : used to initialize a series of SCC registers . 

AO = SCC address for channel to be initialized 

A2 = pointer to an initialization data block as above 

A4 = return address 

Dl = initialization data block size in bytes 

A2, Dl, D2 are modified. 



WRITESCC 





MOVE.B 


(AO) ,D2 




BRA.S 


@2 


@1 


MOVE.B 


(A2) + ,(A0) 


@2 


DBRA 
RTS 


Dl,@l 



;read to make sure SCC is sync'ed up 
; delay for timing, too 



Subroutine to initialize SCC. Does reset and zeroes interrupt vector. 



INITBDATA 

.BYTE 2, $00 

.BYTE 9,$C0 

INITBLTH .EQU 4 



INITB2 .BYTE 
INITB2L .EQU 



RSTSCC 



MOVE.L 

LEA 

MOVEQ 

BSR.S 

MOVEQ 

BSR 



5, $82 
2 



#SCCBCTL,AO 
INITBDATA, A2 
#INITBLTH,D1 
WRITESCC 
#12, DO 
DELAY 



zero interrupt vector 
reset both channels 



;set DTR, RTS high for J^>plebus 



;point to SCC base address (chan B) 
; point to channel B init data 
; and set up the length 
;then init channel B 
; delay for SCC reset 



CHGOll 

CHGOll 
CHGOll 



CHGOll 
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10E4 






10E4 


45FA 


FFE8 


10E8 


7202 




lOEA 


61D2 




lOEC 


4E75 




lOEE 






lOEE 






lOEE 






lOEE 






lOEE 






lOEE 


BIFC 


OOFC D241 


10F4 


6604 




10F6 


7038 




10F8 


6002 




lOFA 


7037 




lOFC 


4A87 




lOFE 


6A08 




1100 


3E7C 


0480 


1104 


6000 


FF02 


1108 


6000 


F80E 


HOC 






HOC 






HOC 






HOC 






HOC 






HOC 






HOC 






HOC 






HOC 






HOC 






HOC 






HOC 






HOC 






HOC 


47FA 


0078 


1110 


21CB 


0008 


1114 


207C 


OOFC COOl 


lllA 






lllA 






lllA 






lllA 


7A03 




lllC 


3C3C 


0051 


1120 


702F 




1122 


6100 


2616 


1126 


1028 


0030 


112A 


IICO 


02A1 


112E 


7202 




1130 


6100 


0546 



LEA 
MOVEQ 
BSR.S 
RTS 



INITB2 ,A2 

#INITB2L,D1 

WRITESCC 



setup DTR, RTS outputs 



and return 



CHGOll 
CHGOll 
CHGOll 



Bus error routine for SCC testing 



SCCVCT CMPA.L #SCCBCTL,AO 





BNE.S 


@1 




MOVEQ 


#ERS232B,D0 




BRA.S 


@2 


@1 


MOVEQ 


#ERS232A,D0 


@2 


TST.L 


D7 




BPL.S 


@3 




MOVEA 


#STKBASE,SP 




BRA 


SCCTEST 


@3 


BRA 

.ENDC 
.PAGE 


lOVCT 



; accessing channel B? 

;skip if no 

;set error code for chan B 

;set error code for chan A 

; check if in loop mode 

;skip if not 

;else restore stack ptr 

;and restart test 

;and go handle I/O card bus error 



RMOOO 



Test of disk interface - ensure R/W capability to shared RAM, then 

try disable interrupts command. This test will also verify 

the results of the disk controller ' s own self -test (ROM and RAM test) 



DSKTST 



.IF DIAGS = 1 

LEA DSKVCT,A3 
MOVE . L A3 , BUSVCTR 
MOVE.L #DISKMEM,AO 

Display RC»1 id 



;set up vector in case of bus timeout 
;set ptr for shared memory 



MOVEQ 


#RC»1IDR0W,D5 


set cursor ptrs 


MOVE 


#RC»1IDC0L+1,D6 




MOVEQ 


#'/',D0 


preceed with / char 


BSR 


DSPVAL 


display it 


MOVE.B 


RC»1V(A0) ,D0 


read id 


MOVE.B 


DO , lOROM 


save in low memory 


MOVEQ 


#2,D1 




BSR 


DUTCH 





CHGOOl 

CHGOOl 
CHGOOl 
CHGOOl 
CHGOOl 
CHGOOl 
CHGOIO 
CHGOOl 
CHGOOl 
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1134 






1134 






1134 






1134 


6162 




1136 






1136 






1136 






1136 


4282 




1138 


227C 


OOFC D901 


113E 


0229 


OOBF 0010 


1144 


203C 


OOIC 8000 


114A 


0811 


0006 


114E 


6606 




1150 


5380 




1152 


66F6 




1154 


7439 




1156 






1156 






1156 






1156 






1156 






1156 


11E8 


0016 02AE 


115C 


6616 




115E 






115E 


4A02 




1160 


6612 




1162 






1162 






1162 






1162 


7055 




1164 


1140 


0002 


1168 


B028 


0002 


116C 


6606 




116E 






116E 






116E 






116E 


6100 


0BD6 


1172 


640C 




1174 






1174 






1174 






1174 


08C7 


0011 


1178 


4A87 




117A 


6B90 




117C 


6000 


02 IC 


1180 






1180 


4A87 





Bead system type 

BSR.S SETTYPE 
Check disk alive indicator 



; determine system type 



@2 



CLR.L D2 

MOVE . L #VIA2BASE , Al 

ANDI . B #$BF , DDRB2 (Al ) 

MOVE.L #DSKTMOUT,D0 

BTST 

BNE.S 



; clear for use 

;set ptr to parallel port 6522 

; ensure bit 6 is input 

;set up timeout count for 15 sees 

#DSKDIAG,IRB2(A1) ; check indicator 

@3 ;skip if set 



CHG009 
CHG029 

CHG022 



SOBQ.L #1,D0 

BNE.S @2 

MOVEQ #EDISK,D2 



;else loop until timeout (about 8 us 
; error if not set 
Try read operation and check results of self-test 



per loop) 
C:hG022 



@3 



@4 



.IF DIAGS = 1 

MOVE.B STST(AO) ,DSKRSLT ;get results of disk self-test 
BNE.S INTERR ;exit if error 



TST.B 
BNE.S 



D2 
INTERR 



;previous error? 
;exit if yes 



Then try simple write operation to shared RAM 



MOVEQ #$55, DO 

MOVE.B DO,CMD(AO) 

CMP.B CMD(AO),DO 

BNE . S INTERR 



;set up pattern 

;try write 

; verify 

;exit if error 



C:hG022 
CHG022 

C:hG022 
CHG022 



RMOOO 



Finally try a command to disable interrupts 



;go issue disable cmd 
;skip if OK 



;else set disk error 

; restart if in loop mode 

;and abort further testing 

; restart if in loop mode 



BSR 


DSABLDSK 


BCC.S 


DSKXIT 


.ELSE 




.ENDC 




INTERR BSET 


#DISK,D7 


TST.L 


D7 


BMI.S 


DSKTST 


BRA 


TSTCHK 



DSKXIT TST . L D7 
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1182 


6B88 




1184 






1184 






1184 


603A 




1186 






1186 






1186 






1186 


7039 




1188 






1188 






1188 


4A87 




118A 


6A08 




118C 






118C 






118C 


3E7C 


0480 


1190 


6000 


FF7A 


1194 


6000 


F782 


1198 






1198 






1198 






1198 






1198 






1198 






1198 






1198 






1198 






1198 






1198 


4280 




119A 


1239 


OOFC C031 


llAO 


4A01 




11A2 


6A16 




11A4 


0801 


0005 


11A8 


6704 




llAA 


7001 




llAC 


600C 




llAE 


0801 


0006 


11B2 


6704 




11B4 


7002 




11B6 


6002 




11B8 


7003 




IIBA 


IICO 


02AF 


IIBE 


4E75 




IICO 






IICO 






llCO 






IICO 






IICO 







BMI.S 
.ENDC 



DSKTST 



BRA.S COPSCHK 



;else go to next test 



Bus error routine for disk testing 



DSKVCT MOVEQ #EDISK,DO 

.IF R0M4K = 

TST.L D7 

BPL.S @3 

.ENDC 

MOVEA #STKBASE,SP 

BRA DSKTST 

@3 BRA lOVCT 



;SET ERROR CODE 



; check if in loop mode 
;skip if not 



;else restore stack ptr 

;and restart test 

;G0 HANDLE I/O CARD BUS ERROR 



RMOOO 



Subroutine for determining system type 

Returns type value in DO and sets SYSTYPE location in memory 
DO = - Lisa 1 

1 - Lisa 2/external disk with slow timers 

2 - Lisa 2/external disk with fast timers 

3 - Lisa 2/internal disk (Pepsi) with fast timers 



SETTYPE CLR.L 
MOVE.B 
TST.B 
BPL.S 
BTST 
BEQ.S 
MOVEQ 
BRA.S 

@1 BTST 
BEQ.S 
MOVEQ 
BRA.S 

@2 MOVEQ 

@9 MOVE.B 
RTS 

.PAGE 



DO 

DISKR0M,D1 

Dl 

@9 

#SL0TMR,D1 

@1 

#1,D0 

@9 

#FASTMR,D1 

@2 

#2, DO 

@9 

#3, DO 

DO , SYSTYPE 



; clear for type usage 

;read disk id 

; check for Lisa 1 

;skip if yes 

;Lisa 2 with slow timers? 

;skip if not 

;else set type 

;Lisa 2 with fast timers? 
;skip if not 
;else set type 

;else must be Pepsi with fast timers 
;save system type 



CHG029 
CHG029 
CHG029 
CHG029 
CHG029 
CHG029 
CHG029 
CHG029 
CHG029 
CHG029 
CHG029 
CHG029 
CHG029 
CHG029 
CHG029 



Scan the keyboard for user commands . Click speaker first to alert user . 
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IICO 






IICO 


47FA 


F754 


11C4 


21CB 


0008 


11C8 


6100 


F924 


IICC 


6100 


F8FE 


IIDO 


207C 


OOFC DD81 


11D6 


117C 


00C9 0018 


IIDC 






IIDC 






IIDC 


6104 




IIDE 


6000 


OOAC 


11E2 






11E2 






11E2 






11E2 






11E2 






11E2 






11E2 


2278 


0260 


11E6 


347C 


02C0 


llEA 






llEA 






llEA 






llEA 


6100 


F892 


llEE 


6568 




IIFO 


OCOO 


OOFF 


11F4 


6624 




11F6 


6100 


F886 


UFA 


655C 




IIFC 






IIFC 


OCOO 


OOFE 


1200 


6636 




1202 


6100 


F87A 


1206 


6550 




1208 


OCOO 


00C4 


120C 


660C 




120E 


IIFC 


OOOF 01B3 


1214 


08C7 


OOIC 


1218 


60D0 




121A 






121A 






121A 






121A 






121A 






121A 






121A 


4A00 




121C 


6A1E 




121E 


OCOO 


OOFD 



COPSCHK 


LEA 




COPSVCT 


A3 




MOVE 


L 


A3,BUSVCTR 




BSR 




CLICK 






BSR 




DELAY 1 





MOVEA.L #VIA1BASE,A0 
MOVE.B #$C9,PCR1(A0) 



BSR.S 
BRA 



SCANCPS 
CLKTST 



;set up bus error vector 

; notify user that keyboard about to be scanned 

; delay for 1/10 sec 

;set up VIA address 

;set intrpt control for later use 

; also causes second "click" 

;go check for keyboard input 
;and continue on 



Siibroutine to do scan of keyboard COPS 



SCANCPS 



MOVE.L KBDQPTR,A1 
MOVEA #QEND,A2 

Scan for keyboard data 



BSR 


GETDATA 


BCS.S 


@9 


CMPI.B 


#CMDKEY,DO 


BNE.S 


@1 


BSR 


GETDATA 


BCS.S 


@9 


CMPI.B 


#SHFTKEY,DO 


BNE.S 


@2 


BSR 


GETDATA 


BCS.S 


@9 


CMPI.B 


#PKEY,DO 


BNE.S 


@1 


MOVE.B 


#PC,BOOTDVCE 


BSET 


#ALTB00T,D7 


BRA.S 


KEYSCAN 



;set up queue ptrs 



;go check for keyboard input 

;exit if no data or queue full 

;is it the command key? 

;skip if no 

;yes - get next char to see if boot cmd 

;exit if queue full or no more data 

; check for shift key 

;skip if no - go save as boot code 

;else keep checking for command sequence 

;skip if Q full or no data 

; ' P ' key for power-cycling 

;skip if not 

;set for power-cycle mode 

;set alternate boot 

;and continue scan 



@1 



.IF USERINT = 1 
do test for downstroke or mouse button (used for burnin cycling) 



TST.B DO 
BPL.S @4 
CMPI . B #ALPHKEY , DO 



; check keycode 

;skip if not downstroke 

; ignore alpha lock key 
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1222 


67C6 




1224 






1224 






1224 






1224 


OCOO 


0086 


1228 


6608 




122A 


08F8 


0002 02A2 


1230 


60B8 




1232 






1232 






1232 






1232 






1232 


08C7 


OOID 


1236 






1236 






1236 


60B2 




1238 






1238 






1238 






1238 


6124 




123A 


60AE 




123C 






123C 






123C 






123C 


OCOO 


0006 


1240 


6608 




1242 


08B8 


0004 02A2 


1248 


60A0 




124A 






124A 


OCOO 


007F 


124E 


6606 




1250 


08B8 


0003 02A2 


1256 






1256 


6092 




1258 






1258 


21C9 


0260 


125C 


4E75 




125E 






125E 






125E 






125E 






125E 






125E 






125E 






125E 






125E 


47FA 


OOIA 


1262 


4282 





BEQ . S KEYSCAN 
.ENDC 

.IF BUPNIN = 1 

CMP.B #MOUSDWN,D0 ;mouse button? 

BNE.S @3 ;skip if not 

BSET #MSBUTN,STATFLGS ;else set flag for later use 

BRA.S KEYSCAN ;and continue scan 

.ENDC 



@3 



.IF USERINT = 1 
BSET #BTMENU,D7 
.ENDC 



;set indicator for boot menu 



BRA.S KEYSCAN ;and continue scan 
Save code as possible boot id and set indicator 



@2 BSR.S XLATE 

BRA.S KEYSCAN 



; translate to boot id code and save 
;and continue keyboard scan 



@4 

@5 

@6 
@9 



Check if release of mouse or COMMAND key (in case continuing after error) 

; mouse release? 



CMP.B #MOUSUP,D0 

BNE.S @5 

BCLR #MOUSE , STATFLGS ; clear marker if yes 

BRA.S KEYSCAN ;and continue scan 

CMP.B #CMDUP,D0 ;Left CMD key release? 

BNE.S @6 

BCLR #CMDFLG , STATFLGS ; clear marker if yes 



BRA.S KEYSCAN 

MOVE . L Al , KBDQPTR 
RTS 



; continue scan 

;save buffer ptr 
;and return to caller 



Subroutine to translate keycodes to boot device codes . Returns 
with boot code in D2 if match found, else D2 = $F for no match. 
Also saves boot id in memory, and sets alternate boot indicator. 
Destroys A3 and D2 . 



XLATE LEA KEYTBL,A3 ;get ptr to keycode table 
CLR.L D2 ; clear for counter 
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1264 


BOIB 


1266 


6708 


1268 


5242 


126A 


4A13 


12 6C 


66F6 


12 6E 


747F 


1270 




1270 


11C2 01B3 


1274 


08C7 OOIC 


1278 


4E75 


127A 




127A 


F4 Fl F2 


127D 


F3 E4 01 


1280 


El E2 01 


1283 


E3 DO 01 


1286 


01 01 01 


1289 


01 


128A 


AF 


128B 




128B 


00 


128C 




128C 




128C 




128C 




128C 




128C 




128C 




128C 




128C 




128C 


6112 


128E 


4A87 


1290 


6BFA 


1292 


0807 OOOE 


1296 


6600 0102 


12 9A 


6100 232A 


12 9E 


604E 


12A0 




12A0 




12A0 




12A0 




12A0 


40E7 


12A2 


007C 0700 


12A6 


7002 


12A8 


6100 F6AC 


12AC 


6534 


12AE 


347C OICO 


12B2 


327C 01B9 



@1 



@2 



KEYTBL 



CMP.B (A3)+,D0 

BEQ . S @2 

ADDQ #1,D2 

TST.B (A3) 

BNE.S @1 

MOVEQ #$7F,D2 

MOVE.B D2,B00TDVCE 

BSET #ALTB00T,D7 
RTS 

. BYTE KEYl , KEY2 , KEY3 

.BYTE KEY4,KEY5,01 

.BYTE KEY6,KEY7,01 

.BYTE KEY8,KEY9,01 

.BYTE 01,01,01 

.BYTE 01 

.BYTE ENTRKEY 



;do search ion til match 

;skip if match 

;else birap cntr 

;at end? 

;if not continue scan 

;else set for invalid code 

;save as boot device code 
;set indicator 
;and exit 



TBLEND .BYTE 
.FA(S 



1,2,3 

4, 5, reserved (01 is invalid keycode) 

6,7, reserved 

8,9, reserved 

reserved 

reserved for power-cycle mode 

Enter on nvimeric key pad 

(for Monitor access) 
ensure on word boundary 



Try initial clock read and save data for later use 



CLKTST 



.IF 


NEWLISA = 1 


.IF 


DIAGS = 1 


BSR.S 


READCLK 


TST.L 


D7 


BMI.S 


CLKTST 


BTST 


#CLK,D7 


BNE 


TSTCHK 


BSR 


CHKIOBRD 


BRA.S 


CONFIG 



Subroutine to read clock 



READCLK DISABLE 

# MOVE 

# ORI 
MOVEQ 
BSR 
BCS.S 
MOVEA 



SR,-(SP) 
#$0700, SR 

#$02, DO 

COPSCMD 

CLKERR 

#DATARGS,A2 



;go read clock 

; restart if in loop mode 

;any errors? 

; abort if yes 

;else mark I/O board OK 

;and exit to next test 

destroys regs A0-A2, DO-Dl 

; disable all interrupts 



;set up read clock and 

;and send to COPS 

;exit if error 

;set ptr to end of save area 



RDCLKO MOVEA #CLKDATA-1,A1 ;set ptr to start of save area 



RMOOO 
RMOOO 
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12B6 


6100 


F7C6 


12BA 


6526 




12BC 


OCOO 


0080 


12C0 


66F0 




12C2 


6100 


F7BA 


12C6 


651A 




12C8 


0200 


OOFO 


12CC 


OCOO 


OOEO 


12D0 


66E0 




12D2 






12D2 


7205 




12D4 


6100 


F7A8 


12D8 


6508 




12DA 


5341 




12DC 


66F6 




12DE 






12DE 


46DF 




12E0 


4E75 




12E2 






12E2 






12E2 






12E2 


08C7 


OOOE 


12E6 






12E6 


46DF 




12E8 


003C 


0001 


12EC 


4E75 




12EE 






12EE 






12EE 






12EE 






12EE 






12EE 






12EE 






12EE 






12EE 






12EE 






12EE 






12EE 


327C 


1E20 


12F2 


6100 


2280 


12F6 






12F6 






12F6 


7801 




12F8 


610C 




12FA 






12FA 






12FA 


4A87 




12FC 


6BF8 





BSR.S 


GETDATA 


BCS.S 


CLKERR 


CMP.B 


#$80, DO 


BNE.S 


RDCLKO 


BSR.S 


GETDATA 


BCS.S 


CLKERR 


ANDI.B 


#$FO,DO 


CMP.B 


#$EO,DO 


BNE.S 


RDCLKO 


MOVEQ 


#5,D1 


RDCLKl BSR 


GETDATA 


BCS.S 


CLKERR 


SUBQ 


#1,D1 


BNE.S 


RDCLKl 


ENABLE 




MOVE 


(SP)+,SR 


RTS 




; Error exit - 


set indicate 


CLKERR BSET 


#CLK,D7 


ENABLE 




MOVE 


(SP)+,SR 


ORI.B 


#$01,CCR 


RTS 




.ENDC 




.ENDC 




.PAGE 





;go get clock reset code 
;exit if timeout error 
;is it the reset code? 
;skip if no to continue wait 
;go check if clock data 

;itiask to check if clock flag 

; clock data? 

; continue wait if no 

;set expected byte count 

;go read clock data 

;exit if error 

;else loop until all data received 

; restore interrupt mask 



; restore interrupt mask 
; leave carry bit set 



Scan I/O slots to determine what cards, if any, are installed and save 
id's of installed cards. 



CONFIG 

.IF USERINT = 1 
MOVEA #XCRDSTRT , Al 
BSR INVICON 
.ENDC 

C0NFIG2 MOVEQ #1,D4 

BSR.S RDSLOTS 

.IF DIAGS = 1 

TST . L D7 

BMI . S C0NFIG2 



;hilite I/O slot test icon 



;set flag for status check 
; and go scan the slots 



; restart if in loop mode 
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12FE 






12FE 






12FE 


6100 


22CE 


1302 


6000 


0096 


1306 






1306 






1306 






1306 






1306 






1306 






1306 






1306 






1306 






1306 






1306 






1306 






1306 






1306 


48E7 


4070 


130A 


2C4F 




130C 


4281 




130E 


327C 


0298 


1312 






1312 


247C 


OOFC 0001 


1318 






1318 


2A78 


0008 


131C 


47FA 


0014 


1320 


21CB 


0008 


1324 


030A 


0000 


1328 


6156 




132A 


6408 




132C 


08C7 


0019 


1330 


6002 




1332 






1332 


4259 




1334 






1334 


247C 


OOFC 4001 


133A 


47FA 


0014 


133E 


21CB 


0008 


1342 


030A 


0000 


1346 


6138 




1348 


6408 




134A 


08C7 


OOIA 


134E 


6002 




1350 






1350 


4259 




1352 






1352 


247C 


OOFC 8001 



.ENDC 

BSR 
BRA 



CHKXCRD 
TSTCHK 



;itiark I/O slots OK 

;exit to check overall results 



Subroutine 


to scan 


I/O 


expansion slots 










Inputs : 




















D4 = non-zero 


if 


status check to be done 


else 


for no 


check 


Outputs : 




















Saves 


card 


id' 


s in locations 


$298- 


-$29C 








Error 


bits 


set in 


D7 if slot 


card 


errors 


encountered 




Error 


code 


saved 


in location 


BOOTDATA+1 








Side Effects: 


















A5,A6 


trashed 

















RDSLOTS 


MOVEM.L 


D1/A1-A3,-(SP) 




MOVE.L 


SP,A6 




CLR.L 


Dl 




MOVEA 


#I01ID,A1 




MOVE.L 


#SL0T1L,A2 




MOVE.L 


BUSVCTR,A5 




LEA 


NOCRDl, A3 




MOVE.L 


A3,BUSVCTR 




MOVEP 


(A2) ,D1 




BSR.S 


CHKID 




BCC.S 


SL0T2 




BSET 


#I01ERR,D7 




BRA.S 


SL0T2 


NOCRDl 


CLR 


(Al) + 


SL0T2 


MOVE.L 


#SL0T2L,A2 




LEA 


N0CRD2,A3 




MOVE.L 


A3,BUSVCTR 




MOVEP 


(A2) ,D1 




BSR.S 


CHKID 




BCC.S 


SL0T3 




BSET 


#I02ERR,D7 




BRA.S 


SL0T3 


N0CRD2 


CLR 


(Al) + 


SL0T3 


MOVE.L 


#SL0T3L,A2 



;save regs 

;save stack ptr 

;for result use 

;get ptr to id save area 

;get slot 1 address 

;save current bus vector value 

;init bus error vector 

; in case no card installed 

;read id for slot 1 

;go check id 

;skip if OK 

;else set error indicator 

;and continue 

;set id for no card 

;do same for slot 2 



;read and check id 

;skip if OK 

;else set error indicator 

;and continue 

;set id for no card 

;and finally for slot 3 



RMOOO 
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1358 


47FA 


0014 


135C 


21CB 


0008 


1360 


030A 


0000 


1364 


611A 




1366 


6408 




1368 


08C7 


OOIB 


136C 


6002 




136E 






136E 


4259 




1370 






1370 






1370 






1370 


007C 


0700 


1374 


21CD 


0008 


1378 


2E4E 




137A 


4CDF 


0E02 


137E 


4E75 




1380 






1380 






1380 






1380 






1380 






1380 






1380 






1380 


0C41 


FFFF 


1384 


6710 




1386 


32C1 




1388 


6B06 




138A 


0801 


OOOE 


138E 


6704 




1390 


6100 


0E3A 


1394 


4E75 




1396 






1396 


4259 




1398 


4E75 




139A 






139A 






139A 






139A 






139A 






139A 






139A 






139A 






139A 


6100 


EC9E 


139E 






139E 


47FA 


OOOA 


13A2 


21CB 


0008 



LEA N0CRD3,A3 

MOVE . L A3 , BUSVCTR 

MOVEP (A2) ,D1 

BSR.S CHKID 

BCC . S CFGEXIT 

BSET #I03ERR,D7 

BRA.S CFGEXIT 



N0CRD3 CLR 



(Al) + 



;read and check id 

;skip if OK 

;else set error indicator 

;go to exit 

;set id for no card 



; Restore default bus error vector and SP and continue 

CFGEXIT ORI #$0700, SR ;ensure interrupts off 

MOVE.L A5, BUSVCTR ; restore from previous saves 

MOVE . L A6 , SP 

MOVEM.L (SP)+,D1/A1-A3 ;and restore regs 

RTS ;then exit 



Subroutine to do I/O slot card id check. 
Requires Dl = card id 



CHKID 





CMP 


#$FFFF,D1 




BEQ.S 


@9 




MOVE 


Dl, (Al)+ 




BMI.S 


@7 




BTST 


#STBIT,D1 




BEQ.S 


@8 


@7 


BSR 


RDIOSLT 


@8 


RTS 




@9 


CLR 
RTS 


(Al) + 



; check for prototype card 

;skip if not - treat as no card 

;else save id 

;if bootable go do check 

; or do if status routine exists 

;skip if not 

;else go check for good board 



;set id for no card 



.PAGE 



Check test results by checking error indicators in reg D7 . 
Output greeting message if system contains memory and all is OK. 
Else output appropriate error messages . 



TSTCHK BSR 



SAVEREGS 



LEA TST2 ,A3 
MOVE . L A3 , BUSVCTR 



;save regs first 

; setup bus error vector for type check CHG032 

CHG032 
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13A6 


6100 


FDFO 


13AA 






13AA 


6100 


F336 


13AE 


3E7C 


0480 


13B2 


6100 


F4D2 


13B6 






13B6 






13B6 






13B6 


6100 


1D22 


13BA 






13BA 






13BA 


2007 




13BC 


0280 


0E7F FFFF 


13C2 


4A80 




13C4 


6700 


0220 


13C8 






13C8 






13C8 






13C8 






13C8 






13C8 






13C8 


2007 




13CA 


0280 


0000 OOOF 


13D0 


4A80 




13D2 


673A 




13D4 






13D4 






13D4 






13D4 


45FA 


25B5 


13D8 






13D8 






13D8 






13D8 






13D8 






13D8 






13D8 






13D8 


0807 


0001 


13DC 


670A 




13DE 


7029 




13E0 


6100 


0108 


13E4 


6000 


F39A 


13E8 






13E8 






13E8 






13E8 


6100 


02E2 


13EC 


6100 


02DE 


13F0 


6100 


02D6 



BSR 



SETTYPE 



TST2 BSR SETBUSVCT 

MOVEA #STKBASE,SP 

BSR SETVLTCH 

.IF USERINT = 
.ELSE 

BSR CLBDESK 
.ENDC 

MOVE.L D7,D0 

AMDI.L #ERRMSK,DO 

TST . L DO 

BEQ OTHER 



;go set system type 

; restore default bus error vector 
; and default stack 
;and set video latch 



; clear desktop 



GET ERROR INDICATORS 

MASK OFF NON-FATAL ERRORS 

OK? 

SKIP IF YES 



CHG032 

RMOOO 

CHG020 



.IF R0M4K = 
Errors detected - scan D7 for CPU error indicators 



MOVE.L D7,D0 

ANDI.L #CPUMSK,DO 

TST . L DO 

BEQ . S EXCHK 

.IF USERINT = 

.ELSE 

LEA CPUBRD,A2 

.ENDC 

Check for specific error 

.IF DIAGS = 1 

BTST #CPUSEL,D7 

BEQ.S @1 

MOVEQ #ECPUSEL,DO 

BSR ERRDISP 

BRA VIA2TST 



;get error indicators 

;inask off no-CPU errors 

;any? 

;skip if none to check for exception errors 



;set ptr for CPU board icon 



; check for CPU selection error 

;skip if not 

;else get error code 

; display it 

;and loop on parallel port VIA test 



Sound error tones if not selection error (controls path to speaker) 
@1 BSR LOPTCH ;CPU error causes lo,lo,hi tones 



BSR 


LOPTCH 


BSR 


LOPTCH 


BSR 


HIPTCH 
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13F4I 






13F4I 






13F4I 






13F4I 


0807 


0000 


13F8I 


6704 




13FAI 


7028 




13FCI 


600C 




13FEI 






13FEI 






13FEI 






13FEI 






13FEI 


0807 


0002 


14021 


6704 




14041 


702A 




14061 


6002 




14081 






14081 


702B 




140AI 






140AI 






140AI 






140AI 






140AI 






140AI 


6000 


01B4 


140EI 






140EI 






140EI 






140EI 






140EI 






140EI 






140EI 






140EI 


2007 




14101 


0280 


0000 03F0 


14161 


4A80 




14181 


6744 




141AI 






141AI 






141AI 






141AI 






141AI 






141AI 






141AI 


6100 


02B0 


141EI 


6100 


02A8 


14221 


45FA 


2930 


14261 






14261 






14261 






14261 


0807 


0004 



Continue check for specific error 



@2 



@3 



@9 



BTST 


#MMU,D7 


BEQ.S 


@2 


MOVEQ 


#EMMU,D0 


BRA.S 


@9 


.IF 


NEWLISA = 1 


.IF 


RCM16K = 1 


BTST 


#VID,D7 


BEQ.S 


@3 


MOVEQ 


#EVID,DO 


BRA.S 


@9 


MOVEQ 


#ECPAR,DO 


.ENDC 




.ENDC 




.ENDC 




BRA 


TSTXIT 


.ENDC 





; CHECK IF MMU ERROR 
;SKIP IF NO 
;ELSE GET ERROR CODE 
;and go output it 



; CHECK IF VIDEO ERROR 
;SKIP IF NO 
;ELSE GET ERROR CODE 
;and go output it 

;else must be parity ckt error 

; {RCM16K} 
; {NEWLISA} 
;{DIAGS} 

;go to exit 

; {R0M4K} 



Scan for exception errors 



EXCHK MOVE.L D7,D0 

ANDI.L #EXMSK,D0 

TST.L DO 

BEQ . S lOCHK 

.IF USERINT = 
.ELSE 

; Sound error tones 



BSR LOPTCH 
BSR HIPTCH 
LEA LISA,A2 
.ENDC 
Scan for details on exception errors 



;itiask off non-exception errors 

;0K? 

;skip if yes to next check 



; general logic failure causes lo,hi tones 
;set ptr for general LISA error 



BTST 



#CPUINTR,D7 



;NMI? 



Computer Boot ROM 2.48 Listing • 106 of 265 



142A 


6704 




142C 


702C 




142E 


602A 




1430 






1430 


0807 


0005 


1434 


6704 




1436 


702D 




1438 


6020 




143A 






143A 


0807 


0006 


143E 


6704 




1440 


702E 




1442 


6016 




1444 






1444 


0807 


0007 


1448 


6704 




144A 


702F 




144C 


600C 




144E 






144E 


0807 


0008 


1452 


6704 




1454 


7030 




1456 


6002 




1458 






1458 


7031 




145A 






145A 


6000 


0164 


145E 






145E 






145E 






145E 






145E 






145E 


2007 




1460 


0280 


OOIF DCOO 


1466 


4A80 




1468 


6700 


008E 


14 6C 






14 6C 






146C 






146C 


45FA 


24DD 


1470 






1470 






1470 






1470 






1470 






1470 






1470 


0807 


OOOA 





BEQ.S 


@1 






MOVEQ 


#ECPUINTR,DO 


;set error code 




BRA.S 


@9 


;and go display 


@1 


BTST 


#BUSEXCP,D7 


;bus error? 




BEQ.S 


@2 






MOVEQ 


#EBUSEXCP,DO 


;set error code 




BRA.S 


@9 




@2 


BTST 


#ADREXCP,D7 


; address error? 




BEQ.S 


@3 






MOVEQ 


#EADREXCP,DO 


;set error code 




BRA.S 


@9 




@3 


BTST 


#MISEXCP,D7 


; miscellaneous error? 




BEQ.S 


@4 






MOVEQ 


#EMISEXCP,DO 


;set error code 




BRA.S 


@9 




@4 


BTST 


#ILLEXCP,D7 


; illegal instruction ( 




BEQ.S 


@5 






MOVEQ 


#EILLEXCP,DO 


;set error code 




BRA.S 


@9 




@5 


MOVEQ 


#ETRPEXCP,DO 


;must be a trap error 


@9 


BRA 


TSTXIT 


;and go to exit 



Check for I/O errors 



lOCHK MOVE.L D7,D0 

ANDI.L #IC»1SK,D0 

TST.L DO 

BEQ KBDCHK 

.IF USERINT = 

.ELSE 

LEA I0BRD,A2 

.ENDC 



GET ERRORS 

MASK OFF NON-IO ERRORS 

OK? 

SKIP IF YES TO NEXT CHECK 



;set ptr for I/O board icon 



.IF R0M4K = 
Scan for details on I/O errors 



.IF 
BTST 



RCM16K = 1 
#VIA1,D7 



; check for keyboard VIA errors 
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1474 


6708 




1476 


7032 




1478 


6170 




147A 


6000 


F434 


147E 






147E 






147E 


6100 


024C 


1482 


6100 


0244 


1486 


6100 


0244 


148A 






148A 






148A 


0807 


OOOB 


148E 


6704 




1490 


7033 




1492 


6052 




1494 






1494 






1494 


0807 


OOOC 


1498 


6708 




149A 


7034 




149C 


614C 




149E 


6000 


F44A 


14A2 






14A2 






14A2 






14A2 


0807 


OOOE 


14A6 


6704 




14A8 


7036 




14AA 


603A 




14AC 






14AC 






14AC 






14AC 






14AC 


0807 


OOOF 


14B0 


6704 




14B2 


7037 




14B4 


6030 




14B6 






14B6 


0807 


0010 


14BA 


6704 




14BC 


7038 




14BE 


6026 




14C0 






14C0 






14C0 


0807 


0011 


14C4 


6704 




14C6 


7039 





BEQ.S @1 

MOVEQ #EVIA1,D0 

BSR.S ERBDISP 

BRA VIAICHK 



;skip if OK 

;else set error code 

; display the error 

;and loop on VIA #1 test 



; Sound error tones if not VIA #1 error (controls the speaker) 
@1 BSR LOPTCH ;I/0 errors cause lo,hi,lo tones 

BSR HIPTCH 

BSR LOPTCH 
; Continue scan for detailed errors 



; parallel port VIA error? 
;set error code 



@2 



@3 



@4 



@6 



@7 



BTST 


#VIA2,D7 


BEQ.S 


@2 


MOVEQ 


#EVIA2,D0 


BRA.S 


@19 


.ENDC 




BTST 


#I0C0PS,D7 


BEQ.S 


@3 


MOVEQ 


#EIOCOP,D0 


BSR.S 


ERRDISP 


BRA 


COPSENBL 


.IF DIAGS = 1 


BTST 


#CLK,D7 


BEQ.S 


@4 


MOVEQ 


#ECLK,DO 


BRA.S 


@19 


.ENDC 





.IF FULLSCC = 1 

BTST #RS232A,D7 

BEQ.S @6 

MOVEQ #ERS232A,D0 

BRA.S @19 

BTST #RS232B,D7 

BEQ.S @7 

MOVEQ #ERS232B,D0 

BRA.S @19 

.ENDC 

BTST #DISK,D7 

BEQ.S @8 

MOVEQ #EDISK,D0 



;get error code 

; display error 

;and go do loop on COPS test 



;ELSE GET ERROR CODE 



;ELSE GET ERROR CODE 



;ELSE GET ERROR CODE 



;ELSE GET ERROR CODE 
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14C8 


601C 




14CA 






14CA 


0807 


0012 


14CE 


6704 




14D0 


703A 




14D2 


6012 




14D4 






14D4 


0807 


0013 


14D8 


6704 




14DA 


703B 




14DC 


6008 




14DE 






14DE 


0807 


0014 


14E2 


6702 




14E4 


703C 




14E6 






14E6 






14E6 






14E6 


6000 


00D8 


14EA 






14EA 






14EA 






14EA 






14EA 






14EA 






14EA 






14EA 


6100 


IFEE 


14EE 






14EE 






14EE 


6100 


0132 


14F2 


08C7 


OOIF 


14F6 


4E75 




14F8 






14F8 






14F8 






14F8 






14F8 






14F8 


0807 


OOOD 


14FC 


6716 




14FE 






14FE 






14FE 






14FE 






14FE 






14FE 


6100 


01C8 


1502 


6100 


01C8 


1506 


6100 


OICO 



BRA.S 



@19 



@8 



@9 



@10 



BTST 


#I0EXCP,D7 




BEQ.S 


@9 




MOVEQ 


#EIOEXCP,D0 


;ELSE GET ERROR CODE 


BRA.S 


@19 




BTST 


#IOCOPS2,D7 


;COPS code error? 


BEQ.S 


@10 




MOVEQ 


#EIOCOP2,D0 


;get error code 


BRA.S 


@19 




BTST 


#I0KBD,D7 


;I/0 or keyboard error? 


BEQ.S 


@19 




MOVEQ 


#EIOKBD,D0 


;get error code 


.ENDC 




; {RCM4K} 



019 



BRA 



TSTXIT 



Subroutine to do display for fatal errors 



ERRDISP 



.IF USERINT = 1 
BSR DSPERRICON 
.ENDC 

BSR DSPCODE 
BSET #L00P,D7 
RTS 



; display error 



; output error code 

;set for looping operation 



Check for keyboard error 



KBDCHK BTST #KBDC0PS,D7 
BEQ . S MEMCHK 

.IF USERINT = 1 

; Sound error tones 

BSR HIPTCH 
BSR LOPTCH 
BSR HIPTCH 



; Keyboard error? 

;skip to next check if not 



; Keyboard error causes hi,lo,hi tones 
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150A 


45FA 


2699 


150E 






150E 






150E 


7035 




1510 


6000 


OOAE 


1514 






1514 






1514 






1514 






1514 






1514 






1514 






1514 


2007 




1516 


0280 


0060 0000 


151C 


4A80 




151E 


6700 


0070 


1522 






1522 






1522 






1522 






1522 






1522 






1522 


6100 


01A8 


1526 


6100 


OlAO 


152A 


6100 


019C 


152E 






152E 






152E 






152E 


0CB8 


0008 0000 02A8 


1536 


6E14 




1538 






1538 






1538 






1538 


2038 


02A4 


153C 


0C80 


0010 0000 


1542 


6D04 




1544 


7201 




1546 


6002 




1548 


7202 




154A 


6026 




154C 






154C 






154C 






154C 






154C 


0807 


0016 


1550 


6706 




1552 


2038 


01A6 



LEA KEYBD0UT,A2 
.ENDC 

MOVEQ #EKBDCOP,D0 

BRA TSTXIT 



;set ptr for keyboard icon 



;set error code 
;and go to exit 



Check for memory errors 



MEMCHK 



MOVE.L D7,D0 

AMDI.L #MEMMSK,DO 

TST.L DO 

BEQ lOSCHK 

.IF USERINT = 
.ELSE 

Sound memory error tones 



GET ERRORS 

MASK OFF NON-memory ERRORS 

any errors? 

skip if no - must be I/O slot error 



BSR 


LOPTCH 


BSR 


HIPTCH 


BSR 


HIPTCH 



; memory error causes lo,hi,hi tones 



determine which memory card in error if more than one 

CMPI.L #HEX512K,TOTLMEM ;more than 1 memory card? 
BGT.S SCNRSLTS ;skip if yes 

only one card - check memory addresses to determine slot 



MOVE.L MINMEM,D0 

CHKMADR CMPI.L #ONEMEG,D0 

BLT . S @2 

MOVEQ #1,D1 

BRA.S @3 

@2 MOVEQ #2,D1 

@3 BRA.S MERRCHK 



;get low physical address 
; address in slot 1? 
;skip if not 
;set board id for slot 1 

;set board id for slot 2 
;and go scan for details 



; more than one memory card - scan memory test results to determine which card 
SCNRSLTS 



BTST #MPAR,D7 
BEQ.S @1 
MOVE.L PEADDR,D0 



; parity error? 

;skip if not 

;go get error address 



CHG015 
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1556 


60E4 




1558 






1558 






1558 






1558 


307C 


0186 


155C 


7008 




155E 


4A58 




1560 


6604 




1562 


5340 




1564 


66F8 




1566 






1566 


OCOO 


0004 


156A 


6E04 




156C 


7201 




156E 


6002 




1570 


7202 




1572 






1572 






1572 






1572 






1572 






1572 






1572 






1572 


0807 


0015 


1576 


6708 




1578 


7046 




157A 


llCl 


02AD 


157E 


6002 




1580 






1580 


7047 




1582 






1582 






1582 






1582 






1582 






1582 






1582 


21C7 


0180 


1586 


45FA 


2446 


158A 


6100 


1EC4 


158E 


6034 




1590 






1590 






1590 






1590 






1590 






1590 






1590 







BRA.S CHKMADR 
; Check for R/W error 

@1 MOVEA #MEMRSLT,A0 

MOVEQ #8, DO 

@4 TST (A0) + 

BNE.S @5 

SOBQ #1,D0 

BNE.S @4 

@5 CMP.B #4, DO 

BGT.S @6 

MOVEQ #1,D1 

BRA.S MERRCHK 

@6 MOVEQ #2,D1 

.ENDC 

.IF R0M4K = 
; scan for error details 



MERRCHK BTST 
BEQ.S 



@2 



MEMERR 



#MEM,D7 

@2 

MOVEQ #EMEM,DO 
MOVE.B D1,MEMSL0T 
BRA.S MEMERR 

MOVEQ #EPAR,DO 

.ENDC 

.IF USERINT = 1 

MOVE . L D7 , STATUS 

LEA MEMBRD,A2 

BSR DSPNUMICON 

BRA.S TSTXIT2 

.ELSE 
.ENDC 



;and check it 



;set ptr to OR masks 

;and set covinter 

; check the rows 

;skip if error detected 

;else check all masks 

;vintil done 

; check where error fovind 
;skip if low memory error 
;high memory on card 1 

;low memory on card 2 

; {USERINT} 



RMOOO 



; check for main memory R/W error 

;exit if not 

;else display error code 

;save slot # for board in error 



;must be parity error 
; {R0M4K} 



;save power-up status 
;set ptr for memory board icon 
; display icon and board slot # 
; finally exit to monitor 



: {USERINT} 



lOSCHK 
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15901 
15901 
15901 
15901 
15901 
15901 
15901 
15941 
15981 
159CI 
15A0I 
15A0I 
15A0I 
15A4I 
15A6I 
15A8I 
15AAI 
15AAI 
15AEI 
15B0I 
15B2I 
15B4I 
15B4I 
15B6I 
15B6I 
15BAI 
15BEI 
15C0I 
15C0I 
15C0I 
15C0I 
15C0I 
15C0I 
15C0I 
15C4I 
15C4I 
15C4I 
15C8I 
15CCI 
15CCI 
15CCI 
15CCI 
15CCI 
15CCI 
15CCI 
15CCI 
15CCI 



6100 0136 
6100 0136 
6100 0132 
45FA 2476 



0807 OOIB 
6704 
7203 
600C 

0807 OOIA 
6704 
7202 
6002 

7201 

1038 01B4 
6100 1E94 
6004 



6100 1F18 



21C7 0180 
6100 0058 



.IF R0M4K = 
.IF USERINT = 
.ELSE 

Sound error tones 



@1 

@2 

@3 
@4 



BSR 


HIPTCH 


BSR 


LOPTCH 


BSR 


LOPTCH 


LEA 


Xcard,A2 


.ENDC 




BTST 


#I03ERR,D7 


BEQ.S 


@2 


MOVEQ 


#3,D1 


BRA.S 


@4 



TSTXIT 



BTST #I02ERR,D7 

BEQ.S @3 

MOVEQ #2,D1 

BRA.S @4 

MOVEQ #1,D1 

MOVE.B BOOTDATA,D0 

BSR DSPNUMICON 

BRA.S TSTXIT2 

.ENDC 



.IF USERINT = 

.ELSE 

BSR DSPERRICON 



TSTXIT2 



MOVE . L D7 , STATUS 
BSR DSPCODE 



;I/0 slot error causes hi,lo,lo tones 



;set ptr for I/O slot board icon 



; check for slot 3 error 
;exit if not 
;else set slot # 



;slot 2 error? 
;set slot # 

;must be slot 1 error 

;get error code 

; display error icon and slot # 

;and exit to monitor 

; {RCM4K) 



; display error icon 



;save status 

; display the error code 



Save error data in special parameter memory area, then exit to monitor 



; Delete for LISA 2 
***************************** 

LEA PMVCT,A3 
MOVE . L A3 , BUSVCTR 



; setup bus error vector for PM 



CHG034 



RM013 
RM013 
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15CCI 
15CCI 
15CCI 
15CCI 
15CCI 
15CCI 
15CCI 
15CCI 
15CCI 
15CCI 
15CCI 
15CCI 
15CCI 
15CCI 
15CCI 
15CCI 
15CCI 
15CCI 
15D0I 
15D4I 
15D8I 
15DCI 
15DCI 
15DCI 
15DCI 
15DCI 
15DCI 
15E0I 
15E4I 
15E6I 
15E6I 
15E6I 
15E6I 
15E6I 
15E6I 
15E6I 
15E6I 
15E6I 
15E6I 
15E6I 
15E6I 
15E6I 
15E6I 
15E6I 
15E6I 
15E6I 
15E6I 



6100 FC14 
6100 F34E 
6100 19F6 
6000 0FC2 



BSR.S 


CHKSTATPM 


BCC.S 


GOTOMON 


MOVEA. 


L #STATSTRT,AO 


MOVE.B 


DO, (AO) 


MOVE 


ADRLTCH,DO 


MOVEP 


D0,2(A0) 


MOVE.B 


MEMSLOT,6(A0) 


MOVE.L 


CLKDATA,DO 


MOVEP. 


L D0,8(A0) 


MOVE 


CLKDATA+4,D0 


MOVEP 


D0,16(A0) 


CLR.L 


DO 


MOVEP. 


L D0,20(A0) 


MOVEQ 


#STATWRDS-2,D0 


BSR 


WRTSUM 


GOTOMON BSR 


SCANCPS 


BSR 


CPSINIT 


BSR 


CURSORINIT 


BRA 


MONITOR 



; check if error already saved 

;skip if yes 

;set starting ptr 

;save error code 

;save error address latch contents 

;save memory slot # 
;save clock data 



; clear remaining area 



; validate save area 



; clear COPS queue 
;reinit interface 
;init cursor and mouse 
;then junp to monitor 



Parameter memory bus error handler 



RM013 



3E7C 0480 
6100 FlOO 
60E6 



PMVCT MOVEA #STKBASE,SP 
BSR SETBUSVCT 
BRA.S GOTOMON 



; reset stack 

; restore bus error vector 

;and exit to monitor 



RM013 
RM013 
RM013 



Subroutine to check special parameter memory validity. 
Verify checksum routine sets carry bit if checksum not valid. 



CHKSTATPM 

MOVEM.L D0-D1/A0,-(SP) 
MOVEA. L #STATSTRT,AO 
MOVEQ #STATWRDS-1 , DO 
MOVE D0,D1 
BSR VFYCHKSM 

@1 MOVEM.L (SP)+,D0-D1/A0 
RTS 

.ENDC 

Scan for non- fatal errors 



CHG034 



;save regs 

;set starting ptr 

;and # of words to check 

;set for shared memory 

;and go do checksum 

; restore regs 
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15E6I 




; — 











15E6I 














15E6I 




OTHER 








15E6I 








.IF R0M16K = 1 




15E6I 


2007 






MOVE.L 


D7,D0 


;get errors 


15E8I 


0280 0180 0000 






AMDI.L 


#OTHRMSK,D0 


; isolate to non- fatal errors 


15EEI 


4A80 






TST.L 


DO 


;0K? 


15F0I 


672C 






BEQ.S 


@9 


;skip if no errors 


15F2I 


0807 0017 






BTST 


#KBD0UT,D7 


; Keyboard disconnected? 


15F6I 


6706 






BEQ.S 


@1 


;skip if no 


15F8I 














15F8I 








.IF USERINT = 




15F8I 








.ELSE 






15FCI 


6014 






BRA.S 


@2 


;with question markcon 


15FEI 








.ENDC 






15FEI 














15FEI 




@1 








;must be mouse 


15FEI 








.IF USERINT = 




15FEI 








.ELSE 






15FEI 


6100 0236 






BSR 


CHKPM 


; check parameter memory before notify 


16021 












; of mouse disconnect 


16021 


6516 






BCS.S 


@8 


; ignore error if invalid 


16041 


0839 0007 OOFC C18D 






BTST 


#MOUSEON,MEMCODE ;check if should be installed 


160CI 


670C 






BEQ.S 


@8 


;skip if not 


160EI 


45FA 261B 






LEA 


M0USE0UT,A2 


;else display mouse icon 


16121 


6100 1F42 


@2 




BSR 


DSPQICON 


;with question mark 


16161 








.ENDC 






16161 














16161 


6000 OOAO 






BRA 


NOTIFY 


; alert user 


161AI 














161AI 








.ENDC 




; {RC»116K} 


161AI 














161AI 


0887 0018 


@8 




BCLR 


#M0US0UT,D7 


; ignore mouse disconnected error 


161EI 














161EI 


6000 OOBE 


@9 




BRA 


SYSOK 


; system must be OK 


16221 








.PAGE 






16221 
























16221 






Subroutine to output error 


code 


16221 
























16221 














16221 


48E7 FOOO 


DSPCODE 


MOVEM.L 


D0-D3,-(SP) 


;save regs 


16261 














16261 








.IF USERINT = 




16261 








.ENDC 






16261 








.IF NEWTWIG = 




16261 








.ENDC 






16261 
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1626 






1626 


3A3C 


0097 


162A 


3C3C 


0012 


162E 






162E 






162E 


6004 




1630 






1630 






1630 






1630 






1630 






1630 






1630 


48E7 


FOOO 


1634 


0280 


0000 FFFF 


163A 


7201 




163C 


4A40 




163E 


6726 




1640 


4282 




1642 


4283 




1644 






1644 






1644 






1644 


80FC 


OOOA 


1648 


4840 




164A 


1400 




164C 


E89A 




164E 


5243 




1650 






1650 


4240 




1652 


4840 




1654 


4A40 




1656 


6702 




1658 


60EA 




165A 






165A 


E99A 




165C 


1002 




165E 


5343 




1660 


6704 




1662 


6114 




1664 


60F4 




1666 






1666 






1666 






1666 


6106 




1668 






1668 


4CDF 


OOOF 


166C 


4E75 





.IF USERINT = 1 
MOVE #C0DER0W,D5 
MOVE #C0DEC0L,D6 
.ENDC 

BRA.S GETDIG 
.IF NEWTWIG = 1 



;set screen ptrs for display 



;go do display 



Translate up to 4 digit hex error code to decimal 
Second entry point for routine 



DSPDEC 



GETDIG 



MOVEM.L 


D0-D3, 


-(SP) 


;save regs 


ANDI.L 


#$0FFFF,D0 


; clear other digits 


MOVEQ 


#1,D1 




; display 1 char at a time 


TST 


DO 




;is it 0? 


BEQ.S 


@9 




;exit if yes to display it 


CLR.L 


D2 




; clear working regs 


CLR.L 


D3 







display all non-zero digits 



@1 


DIVU 


#$A,DO 




SWAP 


DO 




MOVE.B 


D0,D2 




ROR.L 


#4,D2 




ADDQ 


#1,D3 




CLR 


DO 




SWAP 


DO 




TST 


DO 




BEQ.S 


@2 




BRA.S 


@1 


@2 


ROL.L 


#4,D2 




MOVE.B 


D2,D0 




SUBQ 


#1,D3 




BEQ.S 


@9 




BSR.S 


DUTCH 




BRA.S 


@2 




.ENDC 




@9 


BSR.S 


OUTCHR 



DSPCXIT MOVEM.L (SP)+,D0-D3 
RTS 



; converting to decimal 
;get remainder 
;save for display 

;set count 

; clear remainder 
;get new quotient 
;quit when =0 
;skip to do display 



;get char for output 

;decr digit count 

;skip to display last digit 

; display a digit 

;and loop until done 



;do output and CR 

; restore regs 
;and return 



Computer Boot ROM 2.48 Listing • 115 of 265 



166EI 
166EI 
166EI 
166EI 
166EI 
166EI 
16701 
16701 
16701 
16701 
16741 
16741 
16741 
16761 
16781 
16781 
16781 
16781 
16781 
16781 
16781 
16781 
16781 
167CI 
167EI 
16801 
16821 
16841 
16861 
16881 
16881 
168AI 
168CI 
168EI 
16901 
16901 
16941 
16961 
16961 
16961 
16961 
16981 
169CI 
16A0I 
16A2I 
16A6I 
16A8I 



Subroutine to invoke code display routine, then do CR 



6108 



0645 OOOA 



7C01 
4E75 



OUTCHR BSR.S DUTCH 

.IF USERINT = 
.ELSE 

ADD #CHRSPC,D5 
.ENDC 

MOVEQ #1,D6 
RTS 

.PAGE 



; output digits 



;buirp to next char row 



;and do CR 



Subroutines to enable display of hex codes 
Requires DO = value to display 

Dl = # of digits to display 



48E7 EOOO 

7408 

B401 

6706 

E998 

5342 

60F6 

E998 
610A 
5341 
66F8 

4CDF 0007 
4E75 



2F00 

0240 OOOF 
OCOO 0009 
6206 

0000 0030 
6008 



DUTCH MOVEM.L D0-D2,-(SP) 



@1 



;save regs 

;set max digits to display 

; check digits desired 

;and skip if match 

;else skip over digit 

; update count 

;and loop until match 

@2 RDL.L #4, DO ;rotate to next digit 

;go output one digit 
;decr count 
;loop until done 

; restore and exit 



The following routine does conversion to ASCII to enable display 



MOVEQ 


#8,D2 


CMP.B 


D1,D2 


BEQ.S 


@2 


RDL.L 


#4, DO 


SUBQ 


#1,D2 


BRA.S 


@1 


RDL.L 


#4, DO 


BSR.S 


DUTNIB 


SUBQ 


#1,D1 


BNE.S 


@2 


MOVEM. 


L (SP)+,D0-D2 


RTS 





DUTNIB MOVE.L DO,-(SP) 

ANDI #$OOOF,DO 

CMPI.B #9, DO 

BHI . S ALPHA 

DRI.B #$30, DO 

BRA.S DSPCH 



SAVE REG 

ISDLATE DIGIT TD DISPLAY 

CHECK IF NUMERIC 

SKIP IF NDT 

CDNVERT TD ASCII 

AND GD DISPLAY 



Computer Boot ROM 2.48 Listing • 116 of 265 



16A8I 
16ACI 
16B0I 
16B0I 
16B4I 
16B6I 
16B8I 
16B8I 
16B8I 
16B8I 
16B8I 
16B8I 
16B8I 
16B8I 
16B8I 
16B8I 
16BAI 
16BCI 
16BEI 
16C2I 
16C6I 
16C8I 
16C8I 
16C8I 
16C8I 
16C8I 
16CAI 
16CCI 
16CCI 
16CCI 
16CCI 
16CCI 
16CCI 
16CEI 
16D2I 
16D4I 
16D8I 
16DCI 
16DEI 
16DEI 
16DEI 
16DEI 
16DEI 
16DEI 
16DEI 
16DEI 
16E2I 



0400 0009 
0000 0040 

6100 2088 

201F 

4E75 



ALPHA. SUBI.B #9, DO 

ORI.B #$40, DO 

DSPCH BSR DSPVAL 

MOVE.L (SP)+,DO 
RTS 

.PAGE 



; CONVERT FOR 
; ASCII 

; OUTPUT IT 
; RESTORE REG 



Routine to notify user of non-fatal error. Beep speaker and pause 
for 5 seconds . 



610E 
610C 
610E 
6100 F414 



6100 
601A 



7020 
6002 



1A16 



NOTIFY 








.IF R0M16K = 1 




BSR.S 


HIPTCH 




BSR.S 


HIPTCH 




BSR.S 


LOPTCH 




BSR 


DELAYS 




BSR 


CLRDESK 




BRA.S 


DOBOOT 



;beep at high pitch twice 

;beep at low pitch 
; delay 5 seconds 
; clear desktop 
;then go attenpt boot 



CHG033 



; Subroutine 


to beep speaker 


at 


high pitch 




ilPTCH MOVEQ 
BRA.S 


#$20, DO 
SETDUR 




set frequency 
and go do it 


; Subroutine 


to beep speaker 


at 


low pitch 





7060 

323C OOFA 
7404 

6100 F420 
6100 F3F2 
4E75 



LOPTCH 


MOVEQ 


#$60, DO 


SETDUR 


MOVE 


#250, Dl 




MOVEQ 


#4,D2 




BSR 


TONE 




BSR 


DELAY 1 




RTS 






.ENDC 






.PAGE 





set frequency 
1/8 sec duration 
low voliame 
and go do it 
delay for . 1 sec 



No errors detected - output greeting message 



42B8 0180 



SYSOK CLR.L STATUS 
.IF R0M16K = 1 



;set status 
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16E2I 
16E2I 
16E2I 
16E2I 
16E2I 
16E2I 
16E2I 
16E2I 
16E2I 
16E2I 
16E2I 
16E2I 
16E2I 
16E2I 
16E2I 
16E2I 
16E2I 
16E2I 
16E2I 
16E2I 
16E2I 
16E2I 
16E2I 
16E6I 
16E6I 
16E6I 
16E8I 
16ECI 
16EEI 
16F2I 
16F2I 
16F2I 
16F6I 
16F8I 
16FCI 
16FCI 
16FCI 
16FEI 
16FEI 
16FEI 
16FEI 
17021 
17061 
17061 
17061 
170AI 
170AI 



BSR CHKSTATPM 

BCC . S DOBOOT 

CLR.B STATSAV 
.ENDC 

.IF R0M4K = 

.IF USERINT = 

.ENDC 

.ENDC 

.IF R0M4K = 

.IF USERINT = 

.ENDC 

.ENDC 

.INCLUDE RM248.B.TEXT 

.PAGE 
.LIST 



; check special save area 
;skip if valid data saved 
;else set status to 



: {USERINT} 
: {RCM4K} 



CHG034 



: {USERINT} 
: {R0M4K} 



All is OK - check for boot device and then do bootstrap 



6100 18E8 



4280 

0807 OOIC 
6710 
1038 01B3 



OCOO GOOF 
665C 
6100 0154 



6056 



0807 OOID 
6600 01F4 



6100 012E 



DOBOOT BSR 
BOOTCHK 



CURSORINIT 



@1 



CLR.L DO 

BTST #ALTB00T,D7 

BEQ.S @1 

MOVE.B BOOTDVCE,D0 

.IF BURNIN = 1 

CMP.B #PC,DO 

BNE . S DVCECHK 

BSR SAV2PM 

.ENDC 

BRA.S DVCECHK 



.IF USERINT = 1 
BTST #BTMENU,D7 
BNE BOOTMENU 
.ENDC 

BSR CHKPM 

.IF AAPL = 1 



;init cursor/mouse 



; clear for use 

; check if alternate boot command rcvd 

;skip if no 

;get alternate boot code 



;power-cycle mode? 

;if no, go determine device 

;if yes, save in parameter memory 



;and go determine device 



;boot menu wanted? 
;skip if yes 



;next step is to check parameter memory 
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170A 






170A 


6416 




170C 






170C 






170C 






170C 


4A38 


02AF 


1710 


670C 




1712 


7401 




1714 


6100 


0320 


1718 


6704 




171A 


7001 




171C 


600E 




171E 






171E 


7002 




1720 


600A 




1722 






1722 






1722 


1039 


OOFC C189 


1728 


E808 




172A 


6028 




172C 






172C 






172C 






172C 






172C 






172C 






172C 






172C 






172C 


323C 


1000 


1730 


383C 


1800 


1734 


6100 


OlAO 


1738 


661A 




173A 


3602 




173C 


323C 


8001 


1740 


383C 


gjj'i'j!' 


1744 


6100 


0190 


1748 


6704 




174A 


3403 




174C 


6A06 




174E 






174E 


C4FC 


0003 


1752 


3002 




1754 






1754 






1754 






1754 






1758 







.ELSE 
BCC.S @2 

set default boot 



@5 



@2 



@3 



@4 



TST.B 


SYSTYPE 


BEQ.S 


@5 


MOVEQ 


#1,D2 


BSR 


CHKPROFILE 


BEQ.S 


@5 


MOVEQ 


#TWIG2,D0 


BRA.S 


@3 


MOVEQ 


#PROFILE,D0 


BRA.S 


@3 


.ENDC 




MOVE.B 


DVCCODE,D0 


LSR.B 


#4, DO 


BRA.S 


DVCECHK 


.IF NEWTWIG = 


.ENDC 





;skip if valid 



;else check if Lisa 1 

;skip if yes 

;else set wait flag 

;and go check if hard disk attached 

;skip if yes to do boot from hard disk 

;else set for boot from floppy 



CHG030 
CHG030 
CHG030 
CHG030 
CHG030 
CHG030 
CHG030 



;else if not valid do default boot from Profile 



;else read device code 
; rotate to low nibble 



.IF R0M16K = 1 
Do special check for i^plenet and I/O test cards 



MOVE 


#TSTCRD,D1 


MOVE 


#TSTQUAL,D4 


BSR 


SEARCH 


BNE.S 


DVCECHK 


MOVE 


D2,D3 


MOVE 


#APPLENET,D1 


MOVE 


#APPLQUAL,D4 


BSR 


SEARCH 


BEQ.S 


@4 


MOVE 


D3,D2 


BPL.S 


DVCECHK 


MULU 


#3,D2 


MOVE 


D2,D0 


.ENDC 





; search first for a bootable test card 

;go do search 

;skip if not found 

;else save its id 

;next search for an ^plenet card 



;skip if found to boot from it (DMT need) 
;else do boot from I/O test card (DIAG need) 
; unless card boot bit not set 

; convert to boot id 

;and set boot id for appropriate slot 



CHG012 



; Alternate boot desired - check which 

DVCECHK MOVE.B D0,BOOTDVCE ;save for later reference 
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1758 








.IF TWIGGY = 1 


1758 


4A00 






TST.B 


DO 


175A 


660E 






BNE.S 


@1 


175C 


4A38 


02AF 




TST.B 


SYSTYPE 


1760 


6704 






BEQ.S 


@11 


1762 


6000 


076A 


@10 


BRA 


PROBOOT 


1766 












1766 


4200 




@11 


MOVE.B 


#DRV1,D0 


1768 


600A 






BRA.S 


@2 


176A 












176A 


OCOO 


0001 


@1 


CMP.B 


#TWIG2,D0 


176E 


6608 






BNE.S 


@3 


1770 


103C 


0080 




MOVE.B 


#DRV2,D0 


1774 


6000 


0456 


@2 


BRA 


TWGBOOT 


1778 








.ENDC 




1778 












1778 






@3 






1778 








.IF PROFLE = 1 


1778 


OCOO 


0002 




CMP.B 


#PROFILE,D0 


177C 


67E4 






BEQ.S 


@10 


177E 








.ENDC 




177E 












177E 


OCOO 


0004 




CMP.B 


#I01PORT2,DO 


1782 


6E08 






BGT.S 


@4 


1784 


227C 


OOFC 0001 




MOVE.L 


#SL0T1L,A1 


178A 


601A 






BRA.S 


@9 


178C 












178C 


OCOO 


0007 


@4 


CMP.B 


#IO2PORT2,D0 


1790 


6E08 






BGT.S 


@5 


1792 


227C 


OOFC 4001 




MOVE.L 


#SL0T2L,A1 


1798 


600C 






BRA.S 


@9 


179A 












179A 


OCOO 


OOOA 


@5 


CMP.B 


#IO3PORT2,D0 


179E 


6E0A 






BGT.S 


@6 


17A0 


227C 


OOFC 8001 




MOVE.L 


#SL0T3L,A1 


17A6 












17A6 


6000 


09B6 


@9 


BRA 


lOSBOOT 


17AA 












17AA 






@6 






17AA 








.IF 


BURNIN = 1 


17AA 


OCOO 


OOOF 




CMP.B 


#PC,DO 


17AE 


6700 


0A8A 




BEQ 


CHKPASS 


17B2 








.ENDC 




17B2 












17B2 








.IF R0M4K = 


17B2 


OCOO 


0010 


@7 


CMP.B 


#MON,D0 


17B6 


6676 






BNE.S 


LSTCHK 



;boot from upper drive? 
;no - go to next check 
; check system type 
; skip if Lisa 1 . 
;else do Pepsi boot 

;else set drive # 
;and go do boot 

;boot from lower drive? 
;skip if no 
;else set drive # 
;and go boot 



;boot from Profile? 
;yes - go do it 



;boot from slot 1, ports 1-2? 
;skip if not 
;set slot address 
;and go do boot 

;boot from slot 2, ports 1-2? 
;skip if not 
;set slot address 
;and go do boot 

;boot from slot 3, ports 1-2? 
;skip if not 
;set slot address 



CHG009 

CHG009 
CHG009 
CHG009 

CHG009 



CHG009 



CHG009 



;and go do boot 



;power-cycle? 
;go do cycling 



; abort boot? 
;skip if no match 
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17B8 






17B8 






17B8 


08B8 


0000 02A2 


17BE 


08F8 


0001 02A2 


17C4 


6100 


194E 


17C8 


6100 


199A 


17CC 






17CC 






17CC 






17CC 






17CC 






17CC 






17CC 






17CC 


47FA 


0052 


17D0 


21CB 


0008 


17D4 






17D4 






17D4 


6100 


0060 


17D8 


653E 




17DA 


1039 


OOFC C189 


17E0 


E808 




17E2 






17E2 






17E2 






17E2 






17E2 


OCOO 


OOOF 


17E6 


6630 




17E8 


4239 


OOFC C189 


17EE 


08B9 


0006 OOFC C18D 


17F6 






17F6 


47FA 


25FC 


17FA 


6100 


1F04 


17FE 


207C 


OOFC C195 


1804 


0108 


0000 


1808 


7204 




180A 


6100 


FE62 


180E 


7C0C 




1810 






1810 


6100 


0CB8 


1814 


6100 


OCFA 


1818 






1818 






1818 






1818 






1818 


6100 


EEC8 


181C 






181C 







.IF USERINT = 1 

BCLR #NORSTRT,STATFLGS ; allow restart option but 

BSET #NOCONT , STATFLGS ; no CONTINUE button for direct to monitor jimp 

BSR CLBMENU ; clear menu bar and 

BSR MAKEPCALRT ; open alert box for monitor or power cycling 

.ENDC 

.IF BURNIN = 1 
Check if completing power-cycling operation 



.IF DEBUG = 

LEA PMERR,A3 

MOVE . L A3 , BUSVCTR 
.ENDC 

BSR CHKPM 

BCS . S EMEXIT 

MOVE.B DVCCODE,D0 

LSR.B #4, DO 



.IF 


NEWTWIG = 


.ENDC 




CMPI.B 


#PC,DO 


BNE.S 


EMEXIT 


CLR.B 


DVCCODE 


BCLR 


#6,MEMC0DE 


LEA 


L00PMSG,A3 


BSR 


DSPMSG 


MOVE.L 


#LCNTHI ,A0 


MOVEP 


(AO) ,D0 


MOVEQ 


#4,D1 


BSR 


OUTCHR 


MOVEQ 


#PCC0L,D6 


BSR 


DSPCLK 


BSR 


TWGDSP 


; Normal exit 




PMEXIT 




.IF DEBUG = 


BSR 


SETBUSVCT 


.ENDC 





;set vector for parameter mem error 



; check validity of parameter memory 

;skip if not 

;get boot code 

; shift to lower nibble 



; exiting from power-cycling? 

;skip if no 

;else reset boot and 

; memory test indicators 

; display loop count 

;set ptr to loop count 

;get it 

;set # of digits to display 

;and do display 

; reset col for proper left margin 

; display final clock value 
;and display Twiggy error count 



; restore normal bus error vector 
; {debug} 



RMOOO 
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181C 






181C 






181C 


6000 


0D7E 


1820 






1820 






1820 






1820 






1820 


47FA 


25E1 


1824 


45FA 


2125 


1828 


4280 




182A 


6000 


0D08 


182E 






182E 






182E 






182E 






182E 






182E 






182E 






182E 






182E 






182E 


6100 


OEDC 


1832 


6000 


00C4 


1836 






1836 






1836 






1836 






1836 






1836 






1836 






1836 






1836 


48E7 


C080 


183A 


207C 


OOFC C181 


1840 


303C 


OOIF 


1844 


3200 




1846 


6144 




1848 


4CDF 


0103 


184C 


4E75 




184E 






184E 






184E 






184E 






184E 


48E7 


C080 


1852 






1852 






1852 


E908 




1854 


1239 


OOFC C189 


185A 


0201 


OOOF 



.ENDC 
BRA MONITOR 



; {BURNIN} 

;and go to monitor 



.IF BURNIN = 1 
; Bus error handler for parameter memory error 



; setup error message 
;and icon 
;no error code 
;exit to monitor 



PMERR 


LEA 


EMMSG,A3 




LEA 


I0BRD,A2 




CLR.L 


DO 




BRA 


INITMON 




.ENDC 






.ENDC 




LSTCHK 








.IF AAPL = 1 




.ENDC 






.IF USERINT = 




.ELSE 






BSR 


SQUAWK 




BRA 


BOOTMENU 




.ENDC 





: {BURNIN} 
: {RCM4K} 



;else sound error tone 
;and go to boot menu 



.PAGE 



Subroutine to check parameter memory validity. Calls generalized 
verify checksum routine. 



CHKPM MOVEM.L 

MOVEA.L 

MOVE 

MOVE 

BSR.S 
@1 MOVEM.L 

RTS 

.IF BURNIN = 1 



D0-D1/A0,-(SP) 
#IMSTRT,A0 
#IWWRDS-1,D0 
D0,D1 
VFYCHKSM 
(SP)+,D0-D1/A0 



;save regs 

;set starting ptr 

;and # of words to check 

;set for shared memory 

;and go do checksum 

; restore regs 



Subroutine to save boot device code to parameter memory. 



SAV2PM MOVEM.L DO-Dl/AO,- (SP) ;save regs 



.IF NEWTWIG = 

.ENDC 

LSL.B #4, DO 

MOVE.B DVCC0DE,D1 

ANDI.B #$0F,D1 



; rotate device code to upper nibble 
;read current setting 
; clear device indicator 
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185EI 
18601 
18661 
18661 
18661 
186EI 
186EI 
186EI 
186EI 
18741 
18761 
18781 
187CI 
187EI 
187EI 
187EI 
187EI 
187EI 
18801 
18821 
18841 
18861 
188AI 
188CI 
188CI 
188CI 
188CI 
188CI 
188CI 
188CI 
188CI 
188CI 
188CI 
188CI 
188CI 
188CI 
188CI 
188CI 
188CI 
188CI 
188CI 
188EI 
18901 
18921 
18941 
18981 
189AI 



8001 

13C0 OOFC C189 



08F9 0006 OOFC C18D 



207C OOFC C181 

701E 

6106 

4CDF 0103 

4E75 



3200 

610A 

4643 

5243 

0788 0000 

4E75 



OR.B D1,D0 
MOVE.B D0,DVCCODE 

; also set for full memory test 
BSET #6,MEMC0DE 

; then coitpute new checksvim 

MOVEA.L #IMSTRT,AO 
MOVEQ #IWWRDS-2,D0 
BSR.S WRTSUM 
@2 MOVEM.L (SP)+,D0-D1/A0 
RTS 



;save other data 

;and write new device code 



; ensure memory test indicator set 



; confute new checksum 

; leaving out checksum word 

; restore regs 



Subroutine to write new checksum to parameter memory area 



WRTSDM MOVE 
BSR.S 
NOT 
ADDQ 
MOVEP 
RTS 

.ENDC 



D0,D1 

VFYCHKSM 

D3 

#1,D3 

D3,(A0) 



;set for shared memory 
; compute 2 ' s corrplement 
;write as new checksum 



Siobroutine to verify 16 bit checksimi validity for memory contents . 

Inputs Required: AO = starting address for verify 
DO = # of words-1 to read 
Dl = for regular memory (uses MOVE.W) 

= nonzero for shared memory (uses MOVEP) 



0ul5)uts : 



Carry bit set if confuted checksiam not . 
D2 = expected checksiam (last word read) 
D3 = confuted checksiam 



4282 

4283 

4A41 

6708 

0508 0000 

5888 

6002 



VFYCHKSM 



CKLOOP 



CLR.L 


D2 


; clear regs for use 


CLR.L 


D3 




TST 


Dl 


; shared memory? 


BEQ.S 


@1 


;skip if no 


MOVEP 


(AO) ,D2 


;else read alternate bytes 


ADDQ.L 


#4,A0 


;bmQp address 


BRA.S 


@2 


;skip to do checksum 
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189C 


3418 




189E 


D642 




18A0 


E35B 




18A2 


51C8 


FFEC 


18A6 


4A43 




18 AS 


6704 




18AA 


003C 


0001 


18AE 


4E75 




18B0 






18B0 






18B0 






18B0 






18B0 






18B0 






18B0 






18B0 






18B0 






18B0 


48E7 


2030 


18B4 


45FA 


F9C4 


18B8 


47FA 


F9D1 


18BC 


4282 




18BE 


B002 




18C0 


670C 




18C2 


5242 




18C4 


528A 




18C6 


B7CA 




18C8 


66F4 




18CA 


7002 




18CC 


6002 




18CE 


1012 




18D0 


4CDF 


0C04 


18D4 


4E75 




18D6 






18D6 






18D6 






18D6 






18D6 






18D6 






18D6 






18D6 






18D6 






18D6 


48E7 


9000 


18DA 


7400 




18DC 


7602 




18DE 


41F8 


0298 


18E2 


5242 




18E4 


3018 





@1 


MOVE 


(A0)+,D2 


@2 


ADD 


D2,D3 




ROL 


#1,D3 




DBF 


D0,CKL(X)P 




TST 


D3 




BEQ.S 


CKXIT 




ORI.B 


#$01,CCR 


CKXIT 


RTS 






.IF 


NEWTWIG = 




.ENDC 






.IF USERINT = 1 



;read words 

;add to computed checksum 

; rotate for better effectiveness 

;loop until done 

; expected result = 

;else set error indicator 



Subroutine to expand boot id read from parameter memory to keycode 
Returns with keycode in DO . 



EXPAND 



@1 



@2 
@3 



MOVEM.L 

LEA 

LEA 

CLR.L 

CMP.B 

BEQ.S 

ADDQ 

ADDQ.L 

CMPA.L 

BNE.S 

MOVEQ 

BRA.S 

MOVE.B 

MOVEM.L 

RTS 



D2/A2-A3,-(SP) 

KEYTBL,A2 

TBLEND,A3 

D2 

D2,D0 

@2 

#1,D2 

#1,A2 

A2,A3 

@1 

#PROFILE,D0 

@3 

(A2) ,D0 

(SP)+,D2/A2-A3 



;save regs 

;set ptrs to keycode table 

;use for search id 

; check for match 

;skip if yes 

;incr search id 

;bump table ptr 

;at end? 

;loop if not 

;else set for default boot 

;and go to exit 

;get keycode 

; restore regs 



Routine to search I/O slots for specific card 
Expects Dl = card id to search for 

D4 = qualifier for search (mask) 
Returns CC = if card found and 

D2 = slot # 



SEARCH MOVEM.L D0/D3,-(SP) 



@1 



MOVEQ 


#0,D2 


MOVEQ 


#2,D3 


LEA 


I01ID,AO 


ADDQ 


#1,D2 


MOVE 


(A0)+,D0 



;save regs 

; setup as slot counter 

;set # of slots - 1 to check 

;get location of saved slot id's 

;buirp slot # 

;read slot id 
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18E6 


C044 




18E8 


B041 




18EA 


6706 




18EC 


51CB 


FFF4 


18F0 


4A42 




18F2 


4CDF 


0009 


18F6 


4E75 




18F8 






18F8 






18F8 






18F8 






18F8 






18F8 






18F8 






18F8 


0238 


OOOF 02A2 


18FE 


4278 


053A 


1902 


7C01 




1904 






1904 






1904 


4A38 


02AF 


1908 


6602 




190A 


5246 




190C 






190C 


7401 




190E 


6100 


0126 


1912 


6602 




1914 


5246 




1916 






1916 


4284 




1918 


6100 


F9EC 


191C 


41F8 


0298 


1920 


3018 




1922 


6A12 




1924 


247C 


OOFC 0001 


192A 


6100 


02 6E 


192E 


6506 




1930 


0243 


0003 


1934 


DC43 




1936 






1936 


3018 




1938 


6A12 




193A 


247C 


OOFC 4001 


1940 


6100 


0258 


1944 


6506 




1946 


0243 


0003 


194A 


DC43 




194C 







@2 



AND 




D4,D0 




;itiask it 


CMP 




D1,D0 




; match? 


BEQ.S 




@2 




;skip if yes 


DBF 




D3,@l 






TST 




D2 




;set nonzero status if no match 


MOVEM. 


L 


(SP) + , 


D0/D3 


; restore regs 


RTS 








;exit 



.PAGE 



Routines to display boot icon menu 





ANDI.B 


#$0F,STATFLGS 




CLR 


RectCnt 




MOVEQ 


#1,D6 




TST.B 


SYSTYPE 




BNE.S 


@10 




ADDQ 


#1,D6 


@10 


MOVEQ 


#1,D2 




BSR 


CHKPROFILE 




BNE.S 


@1 




ADDQ 


#1,D6 


@1 


CLR.L 


D4 




BSR 


RDSLOTS 




LEA 


I01ID,AO 




MOVE 


(AO)+,DO 




BPL.S 


@2 




MOVE.L 


#SL0T1L,A2 




BSR 


RDSLT 




BCS.S 


@2 




ANDI 


#$03, D3 




ADD 


D3,D6 


@2 


MOVE 


(AO)+,DO 




BPL.S 


@3 




MOVE.L 


#SL0T2L,A2 




BSR 


RDSLT 




BCS.S 


@3 




ANDI 


#$03, D3 




ADD 


D3,D6 



; initialize flags 

; clear active rectangle counter 

;set min # of boot alternates 

; i.e., at least have lower drive 

; to boot from 

; check system type 

;Skip if Lisa 2 



CHG009 



CHG009 
CHG009 
;else incr count for upper floppy drive CHG009 

;set flag to do wait if needed RMOll 
;go check for attached Profile 
;skip if not there 
;else bunp boot count 

;set flag for no status check 

;go scan the I/O slots 

; check results 

;read first ID 

;skip if not bootable or not there 

;set slot address 

;go check if any icons 

;skip if any error 

;else clear don't care bits (max count = 2) 

;and add to icon count 

; check slot 2 

;skip if not bootable 

;set slot address 

;go check if any icons 

;skip if any error 

;else clear don't care bits (max count = 2) 

;and add to icon count 
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194C 


3018 




194E 


6A12 




1950 


247C 


OOFC 8001 


1956 


6100 


0242 


195A 


6506 




195C 


0243 


0003 


1960 


DC43 




1962 






1962 






1962 






1962 


0C06 


OOOA 


1966 


6F02 




1968 


7C0A 




196A 






196A 






196A 


7012 




196C 


2206 




196E 


C2FC 


0022 


1972 


47FA 


2524 


1976 


6100 


0E58 


197A 


31FC 


05A2 0530 


1980 


31FC 


0658 0532 


1986 






1986 






1986 






1986 






1986 


1038 


02AF 


198A 


6714 




198C 


OCOO 


0003 


1990 


661C 




1992 






1992 


4282 




1994 


6100 


OOAO 


1998 






1998 


6614 




199A 


45FA 


213E 


199E 


6006 




19A0 






19A0 


45FA 


217C 


19A4 


7201 




19A6 


7400 




19A8 


76FF 




19AA 


6100 


00E8 


19AE 






19AE 


45FA 


216E 


19B2 


7202 




19B4 


7401 





@3 MOVE (A0)+,D0 ; check final slot 
BPL.S @4 

;set slot address 

;go check if any icons 

;skip if any error 

;else clear don't care bits (max coiant = 2) 

;and add to icon count 

set starting icon display address according to boot count 



MOVE 


(A0) + ,D0 


BPL.S 


@4 


MOVE.L 


#SL0T3L,A2 


BSR 


RDSLT 


BCS.S 


@4 


AMDI 


#$03, D3 


ADD 


D3,D6 



@4 



CMP.B 
BLE.S 
MOVEQ 



#10, D6 
@5 
#10, D6 



;inax of 10 icons in menu 

;skip if OK 

;else set max count 



@5 



now display blank boot icon menu 



MOVEQ 

MOVE.L 

MULU 

LEA 

BSR 

MOVE 

MOVE 



#BMENUWIDTH,DO 

D6,D1 

#BMENULEN,D1 

STRTMSG,A3 

DSPMENUBOX 



;set menu parameters 

;get count of entries 

; length depends on number of entries 

;set menu heading 

;and go display the menu 
#MENUSTRT,MenuBase ; setup base menu address 
#MENUlMSG,IconAddr ;and display pt for first entry 



next fill in the menu entries with icons and alternate keycodes 
DO set with system type 



ICONCHK 





MOVE.B 


SYSTYPE,DO 


;read system type 


CHG009/CHG029 




BEQ.S 


@1 


; skip if Lisa 1 . 


CHG009 




CMP.B 


#3, DO 


;else check if internal disk 


CHG009/CHG029 




BNE.S 


@2 


;skip if not - no upper icon 


CHG009/CHG029 




CLR.L 


D2 


;else set for no wait 


CHG009 




BSR 


CHKPROFILE 


; and check if integral disk 
; installed 


CHG009 
CHG009 




BNE.S 


@2 


;skip if not 


CHG009 




LEA 


UPPKK,A2 


;set icon ptr for integral disk 


CHG009 




BRA.S 


@3 


;and go display 


CHG009 


@1 


LEA 


DRIVEN, A2 


;set icon ptr for drive 


CHG009 




MOVEQ 


#1,D1 


;set drive id # 


CHG009 


@3 


MOVEQ 


#TWIG1,D2 


;set id code 


CHG009 




MOVEQ 


#-l,D3 


;set coitpressed icon indicator 






BSR 


DSPMNTRY 


; display the entry 




@2 


LEA 


DRIVEN, A2 


;set icon ptr for drive 


CHG009 




MOVEQ 


#2,D1 


; and drive id # 


CHG009 




MOVEQ 


#TWIG2,D2 


;set id code 
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19B6 


76FF 




19B8 


6100 


OODA 


19BC 






19BC 


4282 




19BE 


OCOO 


0003 


19C2 


6712 




19C4 






19C4 


6100 


0070 


19C8 


660C 




19CA 


45FA 


20D3 


19CE 


7402 




19D0 


76FF 




19D2 


6100 


OOCO 


19D6 






19D6 






19D6 






19D6 


4280 




19D8 


41F8 


0298 


19DC 


3018 




19DE 


6A0E 




19E0 


247C 


OOFC 0001 


19E6 


7201 




19E8 


7403 




19EA 


6100 


0158 


19EE 






19EE 


3018 




19F0 


6A0E 




19F2 


247C 


OOFC 4001 


19F8 


7202 




19FA 


7406 




19FC 


6100 


0146 


lAOO 






lAOO 


3018 




1A02 


6A10 




1A04 


247C 


OOFC 8001 


lAOA 


7203 




lAOC 


343C 


0009 


lAlO 


6100 


0132 


1A14 






1A14 






1A14 






1A14 






1A14 






1A14 


6100 


15F8 


1A18 


08F8 


0005 02A2 


lAlE 


6100 


1226 


1A22 


6500 


0CC2 



MOVEQ 
BSR 

CLR.L 
CMP.B 
BEQ.S 

BSR 

BNE.S 

LEA 

MOVEQ 

MOVEQ 

BSR 



#-l,D3 
DSPMNTRY 

D2 

#3, DO 
SCNSLTS 

CHKPROFILE 

SCNSLTS 

PR0IC0N,A2 

#PR0FILE,D2 

#-l,D3 

DSPMNTRY 



;set coitpressed indicator 
; display the entry 

set flag for no wait 

skip check if internal disk 



RMOll 

CHG009/CHG029 

CHG009/CHG029 



;else check if external disk attached 

;skip if not 

;else set icon ptr for Profile 

;set id code 

;set coitpressed indicator 

; display the entry 



; check for bootable devices in slots (what a pain ! ) 

SCNSLTS CLR.L DO ; clear for use 

LEA I01ID,AO ;set ptr for slot id 

MOVE (AO)+,DO ;get id 

BPL.S CHKS2 ;skip if not bootable or not there 

MOVE.L #SL0T1L,A2 ;else set slot address 

MOVEQ #1,D1 ;set slot # for generic display if no RCM icon 

MOVEQ #I01P0RT1,D2 ;set base boot id for slot 

BSR CHKSLOT ;go check slot and display icons 

CHKS2 MOVE (AO)+,DO ;read next id 

BPL.S CHKS3 ;skip if not bootable or not there 

MOVE.L #SL0T2L,A2 ;else set slot address 

MOVEQ #2,D1 ;set slot # for generic display 

MOVEQ #I02P0RT1,D2 ;set base boot id for slot 

BSR CHKSLOT ;go check slot and display icons 

CHKS3 MOVE (AO)+,DO ;read slot 3 id 

BPL.S WT4B00T ;skip if not bootable or not there 

MOVE.L #SL0T3L,A2 ;else set slot address 

MOVEQ #3,D1 ;set slot # for generic display 

MOVE #I03P0RT1,D2 ;set base boot id for slot 

BSR CHKSLOT ;go check slot 3 and display icons 



Menu displayed - now wait for operator selection 



WT4B00T 



BSR CursorDisplay /display cursor on screen 

BSET #CHKCMD , STATFLGS ;set flag for CMD key check 

BSR GETINPUT ;go wait for user input 

BCS GETERR ;skip if error 
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1A?6 


6100 


F836 


1A2A 


6100 


15BE 


1A?F. 


6100 


16AA 


1A32 


6000 


FCB2 


1A36 






1A36 






1A36 






1A36 






1A36 






1A36 






1A36 






1A36 






1A36 






1A36 






1A36 






1A36 






1A36 


48E7 


AA80 


1A3A 


6100 


05B4 


1A3E 


664E 




1A40 






1A40 


6100 


06F0 


1A44 


4A00 




1A46 


671E 




1A48 


4A02 




1A4A 


6740 




1A4C 






1A4C 


4280 




1A4E 


6100 


0456 


1A52 


6100 


06D6 


1A56 


48E7 


8080 


1A5A 


6100 


167E 


1A5E 


4CDF 


0101 


1A62 


4A00 




1A64 


661E 




1A66 






1A66 


0210 


OOEF 


1A6A 


6100 


0690 


1A6E 


660A 




1A70 






1A70 


0C28 


0001 0078 


1A76 


6702 




1A78 


7052 




1A7A 






1A7A 


7600 




1A7C 


6100 


0690 


1A80 


6100 


06A0 


1A84 







BSR 


XLATE 


HSR 


CursorHide 


BSR 


CLRDESK 


BRA 


BCWTCHK 



; translate and save boot id 
; remove cursor from screen 
; clear desktop 
;and go start boot 



.PAGE 



Routine to check for Profile attached to built-in parallel port. 
Checks for Profile connected (CXS) and tries an initial handshake to 
ensure the device is a Profile. 

Inputs : D2 = nonzero if full wait for Profile ready should be done 
Outputs : Zero condition code bit cleared if error 



CHKPROFILE 

MOVEM.L A0/D0/D2/D4/D6,- 
BSR PROINIT 
BNE.S @9 



@0 



@1 



BSR 


WFNBSY3 


TST.B 


DO 


BEQ.S 


@0 


TST.B 


D2 


BEQ.S 


@7 


CLR.L 


DO 


BSR 


WAITALRT 


BSR 


WFNBSY2 


MOVEM. 


L AO/DO,-(SP) 


BSR 


CLRDESK 


MOVEM. 


L (SP)+,AO/DO 


TST.B 


DO 


BNE.S 


@8 



(SP) ;save regs 

;init for Profile access 
;skip if not attached 

;wait for not busy 
/check return code 
;skip if OK 
;do full wait? 
;skip if not 



ANDI.B #$EF,ORB2(A0) 

BSR WFBSY 

BNE.S @1 

CMPI.B #1,PORTA2(AO) 

BEQ.S @1 

MOVEQ #BADRSP,DO 

MOVEQ #0,D3 

BSR SENDRSP 

BSR WFNBSY 



RMOll 



RMOOO 



RMOll 
RMOll 



;else reset error code for retry 

/output wait alert 

;try wait for normal profile boot time CHG019 

;save regs 

/clear desktop 

/restore regs 

;exit if still not ready 



;set command = true 

;then get initial Profile response 

;skip if error 

/check for expected '01' response 

;skip if OK 

;else set error code 

; send ' ' response to reset Profile 

;wait until command taken 



RM016 
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1A84I 
1A88I 
1A8CI 
1A8CI 
1A8EI 
1A8EI 
1A92I 
1A94I 
1A94I 
1A94I 
1A94I 
1A94I 
1A94I 
1A94I 
1A94I 
1A94I 
1A94I 
1A94I 
1A94I 
1A94I 
1A94I 
1A98I 
1A9AI 
1A9EI 
1AA2I 
1AA4I 
1AA8I 
lAAAl 
lAAAl 
lAAAl 
lAAAl 
lAAAl 
lAAAl 
lAAAl 
lAAAl 
lAAAl 
lAAAl 
lAAAl 
lAAAl 
lAAAl 
lAAAl 
lAAAl 
lAAAl 
lAAAl 
lAAEI 
lAAEI 
lAAEI 



4228 0018 
0010 0018 

4A40 

4CDF 0155 
4E75 



@8 

@7 
@9 



CLR.B 
ORI.B 

TST 



DDRA2(A0) 
#$18,ORB2(A0) 

DO 



MOVEM.L (SP)+,A0/D0/D2/D4/D6 
RTS 



;set port A bits to input 
;and set dir=in, cmd=false 

;set return code 

; restore 
; and exit 



RMOll 



Siobroutine to invoke display of boot menu entry 
Inputs : 

D2 = boot id 

A2 = ptr to icon 
Outputs : 

Location MenviBase updated with address for next menu "box" 
Side Effects: 

None 



DSPMNTRY 



48E7 8040 
3002 

6100 FE14 
3278 0530 
6106 

4CDF 0201 
4E75 



MOVEM.L D0/A1,-(SP) 
MOVE D2,D0 

BSR EXPAND 

MOVE MenioBase , Al 
BSR.S ICONMENU 
MOVEM.L (SP)+,D0/A1 
RTS 



;save boot id and addr ptr 

;get boot id 

;go convert boot id to keycode 

;get address for display of entry 

;go display in menu 

; restore boot id and addr ptr 

;and exit 



Subroutine to display icon menu on screen. Creates "active rectangle 
table" as entries are made. 
Inputs : 

DO = alternate keycode 

D3 = coitpressed icon indicator 

Al = address for start of next menu "box" 

A2 = ptr to icon 
Outputs : 

Al = ptr for display of next menu entry 
Side Effects: 

None 



48E7 F8A4 



ICONMENU 

MOVEM.L D0-D4/A0/A2/A5,-(SP) 

; first save icon coordinates in active rectangle table 
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lAAE 


41F8 


053A 


1AB2 


3410 




1AB4 


C4FC 


0005 


1AB8 


D442 




lABA 


5258 




lABC 


3180 


2000 


lACO 


6100 


0C58 


1AC4 


3800 




1AC6 






1AC6 






1AC6 






1AC6 


6100 


193E 


lACA 


CCFC 


0008 


lACE 


3186 


2002 


lAn? 


3185 


2004 


1AD6 






1AD6 


303C 


0090 


lADA 


DC40 




lADC 


3186 


2006 


lAEO 


0645 


0022 


1AE4 


3185 


2008 


1AE8 






1AE8 






1AE8 






1AE8 


9DCE 




IAEA 


3C78 


0532 


lAEE 


224E 




lAFO 


DDF8 


0110 


1AF4 


4A03 




1AF6 


6A14 




1AF8 


6100 


1AE8 


lAFC 






lAFC 


41FA 


2020 


IBOO 


B5C8 




1B02 


660C 




1B04 


2A49 




1B06 


6100 


195C 


IBOA 


6004 




IBOC 






IBOC 


6100 


1916 


IBIO 






IBIO 






IBIO 






IBIO 


D2FC 


0445 


1B14 


6100 


18F0 


1B18 


4240 




IBIA 


6100 


ICIE 



LEA 


RectTable,AO 


MOVE 


(AO) ,D2 


MULU 


#5,D2 


ADD 


D2,D2 


ADDQ 


#1,(A0)+ 


MOVE 


D0,0(A0,D2.W) 


BSR 


KeyToAscii 


MOVE 


D0,D4 



@1 



;get ptr to active rect table 
;get current count of rect's 
;five entries per rect 
;doiable for word index 
;incr for new rect 
;save keycode id for new rect 
; convert keycode to Ascii 
;save for later display 



conpute X,Y pixel coordinates from starting address 



;get pixel row, byte col 
; convert to pixel col 
;save upper left X 
and Y coordinates 

; width in pixels of menu entry 
; compute and save 
; lower Y coordinate 
; compute and save 
; lower X coordinate 



; clear for use 

;get address for icon display 

;save for later use 

; convert to screen address 

; check for coitpressed icon 

;skip if not 

;go do display 

; displaying drive? 

;skip if not 

;else set icon display address 
; and display with id # 
;skip to continue 

; display an uncompressed icon 



BSR 


GETROWCOL 


MULU 


#8,D6 


MOVE 


D6,2(A0,D2.W) 


MOVE 


D5,4(A0,D2.W) 


MOVE 


#<MENUWIDTH*8>,D0 


ADD 


D0,D6 


MOVE 


D6,6(A0,D2.W) 


ADD 


#<ICONHIGH+2>,D5 


MOVE 


D5,8(A0,D2.W) 



now do icon display 



SUBA.L 


A6,A6 


MOVE 


IconAddr,A6 


MOVE.L 


A6,A1 


ADD.L 


SCRNBASE,A6 


TST.B 


D3 


BPL.S 


@1 


BSR 


DSPICON 


LEA 


DRIVEN, AO 


CMPA.L 


A0,A2 


BNE.S 


@2 


MOVE.L 


A1,A5 


BSR 


DSPNUM 


BRA.S 


@2 



BSR 



DSPRGICON 



CHG009 
CHG009 
CHG009 
CHG009 
CHG009 

c:hgoo9 

CHGOOS 



now display the alternate keycode 



@2 



ADD 


#ALTKYADDR,A1 


BSR 


GETROWCOL 


CLR 


DO 


BSR 


DSPVAL 



;set starting display pt 

; convert to row, col 

; first display the apple 
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IBIE 


3004 




1B20 


6100 


1C18 


1B24 






1B24 






1B24 






1B24 


3278 


0530 


1B28 


D2FC 


0BF4 


1B2C 


31C9 


0530 


1B30 






1B30 


3278 


0532 


1B34 


D2FC 


0BF4 


1B38 


31C9 


0532 


1B3C 


6000 




1B3E 






1B3E 


4CDF 


251F 


1B42 


4E75 




1B44 






1B44 






1B44 






1B44 






1B44 






1B44 






1B44 






1B44 






1B44 






1B44 






1B44 






1B44 






1B44 






1B44 






1B44 


48E7 


F8E0 


1B48 


0800 


OOOD 


1B4C 


661A 




1B4E 






1B4E 






1B4E 


45FA 


1EC4 


1B52 


76FF 




1B54 


3278 


0532 


1B58 


6100 


FF3A 


1B5C 


45FA 


1EB6 


1B60 


2A49 




1B62 


6100 


1900 


1B66 


602C 




1B68 






1B68 






1B68 






1B68 







MOVE 
BSR 



D4,D0 
DSFVAL 



;get Ascii char 
;and display it 



finally compute the next menu entry and icon display address 



@3 



MOVE 


Meni:iBase,Al 


ADD 


#BMenuSpc,Al 


MOVE 


Al,MenuBase 


MOVE 


IconAddr,Al 


ADD 


#BMenuspc,Al 


MOVE 


Al , IconAddr 


BRA.S 


@4 



;get base address for the entry 

; space to next col 

;and save for next entry 

else get this icon ' s address 
and buitp to next spot in colimin 
and do update 



@4 



MOVEM.L (SP)+,D0-D4/A0/A2/A5 
RTS 



Routine to check slots for icons and do display or do generic display. 
Inputs : 

DO = card id 

Dl = slot # 

D2 = first boot id for slot 

Al = address for icon display 

A2 = slot address 
Outputs : 

Returns with carry bit set if error. 
Side Effects: 

None 



CHKSLOT MOVEM.L D0-D4/A0-A2,- (SP) ;save regs 

BTST #ICBIT,D0 ;icon available? 
BNE.S CHKICONS ;skip if yes 

; no icons available - display slot # and display generic slot card icon 



LEA 


XCARD,A2 


; point to generic icon 


MOVEQ 


#-l,D3 


;set coitpressed flag 


MOVE 


IconAddr,Al 


;get display address for later use 


BSR 


DSPMNTRY 


;go display entry 


LEA 


XCARD,A2 


;set icon ptr 


MOVE.L 


A1,A5 


;get icon address 


BSR 


DSPNUM 


; display slot # 


BRA.S 


CHKSXIT 


;and exit 



; Slot has icon - read ROM and get ptr to desired icon 
CHKICONS 
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1B68 


6130 




1B6A 


6528 




1B6C 


227C 


0001 FFFC 


1B72 


2803 




1B74 


0244 


0003 


1B78 


204A 




1B7A 


3218 




1B7C 


2449 




1B7E 


D4C1 




1B80 


6100 


FF12 


1B84 






1B84 


5344 




1B86 


670C 




1B88 


3218 




1B8A 


5242 




1B8C 


2449 




1B8E 


D4C1 




1B90 


6100 


FF02 


1B94 






1B94 


4CDF 


071F 


1B98 


4E75 




1B9A 






1B9A 






1B9A 






1B9A 






1B9A 






1B9A 






1B9A 






1B9A 






1B9A 






1B9A 






1B9A 






1B9A 


48E7 


AOOO 


1B9E 


0800 


OOOD 


1BA2 


6720 




1BA4 


4284 




1BA6 


6100 


0624 


IBAA 


651A 




IBAC 






IBAC 


4283 




IBAE 


3639 


0002 0004 


1BB4 


08C3 


0000 


1BB8 


247C 


0001 FFFC 


IBBE 


D5C3 




IBCO 


161A 




1BC2 


6002 




1BC4 







BSR.S 


RDSLT 


BCS.S 


CHKSXIT 


MOVE.L 


#ADR128K-4,A1 


MOVE.L 


D3,D4 


AMDI 


#$03, D4 


MOVE.L 


A2,A0 


MOVE 


(A0)+,D1 


MOVE.L 


A1,A2 


ADD 


D1,A2 


BSR 


DSPMNTRY 


SUBQ 


#1,D4 


BEQ.S 


CHKSXIT 


MOVE 


(A0)+,D1 


ADDQ 


#1,D2 


MOVE.L 


A1,A2 


ADD 


D1,A2 


BSR 


DSPMNTRY 



;go read slot 

;exit if error 

;set base address of I/O slot ROM code 

;save icon count 

; isolate covint (max = 2) 

;get code ptr 

;get icon offset 

;get base address 

;add offset to set up icon ptr 

; display as menu entry 

;more than one icon? 

;skip if not 

;else get ptr to second icon 

;bump boot id ptr for slot 

; restore base address 

;set up icon address 

; display as menu entry 



CHKSXIT MOVEM.L (SP) +,D0-D4/A0-A2 ;restore regs and exit 
RTS 



Routine to read I/O slot RCM's and get icon count if any. 

Expects DO = boot id 

A2 = slot address 

Returns D3 = icon count 

A2 = address of ptr to first icon if more than one 



RDSLT MOVEM.L D0/D2,-(SP) 



BTST 


#ICBIT,D0 


BEQ.S 


@2 


CLR.L 


D4 


BSR 


RDIOSLT 


BCS.S 


@1 


CLR.L 


D3 


MOVE 


IC0NPTR,D3 


BSET 


#0,D3 


MOVE.L 


#ADR128K-4,A2 


ADD.L 


D3,A2 


MOVE.B 


(A2)+,D3 


BRA.S 


@1 



; save boot id ' s 

;any icons stored in ROM? 

;skip if none 

;set flag for no status check 

;and go read RCM on slot 

;skip if error 

; clear for use 
;get icon ptr 
;must be odd address 
;set base address 
;set actual address 
;read icon count 
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1BC4 


7601 






1BC6 








1BC6 


4CDF 


0005 




IBCA 


4E75 






IBCC 








IBCC 








IBCC 








IBCC 








IBCC 








IBCC 








IBCC 








IBCC 








IBCC 








IBCC 








IBCC 


47FA 


F5B8 




IBDO 


21CB 


0008 




1BD4 








1BD4 








1BD4 








1BD4 


IICO 


0535 




1BD8 


6100 


02CC 




IBDC 








IBDC 








IBDC 


207C 


OOFC 


COOl 


1BE2 


227C 


0001 


FFF4 


1BE8 


247C 


0002 


0000 


IBEE 


4281 






IBFO 


0280 


0000 


OOFF 


1BF6 








1BF6 


4A40 






1BF8 


6608 






IBFA 


117C 


0008 


0002 


ICOO 


6006 






1C02 


117C 


0080 


0002 


1C08 








1C08 


E098 






ICOA 


8280 






ICOC 








ICOC 


lOBC 


0086 




ICIO 


6100 


01F2 




1C14 


6500 


0082 




1C18 


267C 


OOFC 


DD81 


ICIE 


08AB 


0004 


0004 


1C24 








1C24 








1C24 








1C24 









@2 


MOVEQ #1,D3 


;set default icon count 


@1 


MOVEM.L (SP)+,D0/D2 
RTS 


; restore boot id ' s 




.ENDC 


; {USERINT} 




.PAGE 





Do default boot from Twiggy specified drive. 
Assiomes regs : 

DO = drive # 
Following assumptions are made for power-up status: 

1) No interrupt from disk unless diskette inserted or button pushed 



TWGBOOT LEA DSKVCT,A3 
MOVE . L A3 , BUSVCTR 





.IF USERINT = 




.ELSE 






MOVE.B 


DO, DRIVE 




BSR 


WAITALRT 




.ENDC 






MOVE.L 


#DISKMEM,AO 




MOVE.L 


#TWGHDR,A1 




MOVE.L 


#TWGHDR+12 ,A2 




CLR.L 


Dl 




ANDI.L 


#$OOFF,DO 




TST 


DO 




BNE.S 


@1 




MOVE.B 


#$08,CMD(A0) 




BRA.S 


@2 


@1 


MOVE.B 


#$80,CMD(A0) 


@2 


ROR.L 


#8, DO 




OR.L 


D0,D1 




MOVE.B 


#ENBLINT, (AO) 




BSR 


CMDCHK 




BCS 


DSKTIMERR 




MOVE.L 


#VIA1BASE,A3 




BCLR 


#FDIR,DDRB1 (A3) 


t 


BTST 


#FDIR, (A3) 


; 


BEQ.S 


DOREAD 



first set up bus error vector 



;save drive id 

; display wait icon 

; set ptr to controller memory 

; set ptr to load header 

; and ptr to load data 

; set drive/side/sector/track ptr 

; mask off junk 

; enable only drive selected 

; enable drive #1 

; enable drive #2 

; get actual drive desired 

; and save for shared mem format 

;go do enable 

;wait until cmd taken 

;skip if timeout error 

;else enable 

; FDIR 

;FDIR present? 

;skip if no to do read 
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1C24 


6100 


024C 


1C28 


6500 


006E 


1C2C 






1C2C 






1C2C 






1C2C 






1C2C 






1C2C 






1C2C 






1C2C 


4240 




1C2E 


6100 


0140 


1C32 


640A 




1C34 


OCOO 


0027 


1C38 


6700 


0060 


1C3C 


600A 




1C3E 






1C3E 


3029 


0004 


1C42 


0C40 


AAAA 


1C46 


6724 




1C48 






1C48 






1C48 






1C48 


123C 


0001 


1C4C 


4240 




1C4E 


6100 


0120 


1C52 


6546 




1C54 


4201 




1C56 


4240 




1C58 


6100 


0116 


1C5C 


653C 




1C5E 






1C5E 






1C5E 


3029 


0004 


1C62 


0C40 


AAAA 


1C66 


6704 




1C68 


7026 




1C6A 


602E 




1C6C 






1C6C 






1C6C 






1C6C 






1C6C 






1C6C 


42B8 


01B4 


1C70 


47FA 


009C 


1C74 


49FA 


009E 


1C78 


6100 


0236 


1C7C 


247C 


0002 0000 



CliRINT BSR 
ECS 

.FA(S 



CLRFDIR ; clear interrupts 
DSKTIMERR ;exit if timeout error 



Read boot data - retry on sector if needed. 



DOREAD 



CLR 


DO 


BSR 


TWGRD 


BCC.S 


@1 


CMP.B 


#TIMOUT,D0 


BEQ 


DSKCHK 


BRA.S 


RDRETRY 


MOVE 


FILEID(Al) ,D0 


CMP 


#BCX)TPAT,D0 


BEQ.S 


RDSCTRl 



@1 



; Do retry by reading track 
; retry reading track 
RDRETRY MOVE.B #1,D1 
CLR 



BSR 

BCS.S 

CLR.B 

CLR 

BSR 

BCS.S 



DO 

TWGRD 

DSKCHK 

Dl 

DO 

TWGRD 

DSKCHK 



set speed value 
go read sector 
skip if OK 
timeout error? 
exit if yes 
else go do retry 

else get file ID 
is it a boot file? 
skip if yes 



1 to try to get head properly aligned, then 



set for track 1 
set speed value 
go do read 
exit if second error 
else retry track 
set speed value 
go do read 
exit if error 



RMOOO 



RMOOO 



RMOOO 



Now check again for a valid boot track 



MOVE 

CMP 

BEQ.S 

MOVEQ 

BRA.S 



FILEID(Al) ,D0 

#BOOTPAT,D0 

RDSCTRl 

#BADTHDR,DO 

DSKCHK 



get file ID 

is it a boot file? 

skip if yes 

set error code 

and exit 



RDSCTRl 



.IF NEWTWIG = 
.ENDC 



CLR.L 

LEA 

LEA 

BSR 

MOVE.L 



BOOTDATA 
DSKERR2 ,A3 
DSKERR3,A4 
VCTRINIT 
#TWGDATA,A2 



;set for no error 

;set up vectors in case of bad diskette 

;set data ptr (software view) 
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1C82I 
1C82I 
1C82I 
1C82I 
1C82I 
1C86I 
1C8AI 
1C8EI 
1C92I 
1C96I 
1C98I 
1C98I 
1C98I 
1C98I 
1C98I 
1C98I 
1C98I 
1C98I 
1C9AI 
1C9EI 
1CA2I 
1CA4I 
1CA8I 
ICAAI 
ICAAI 
ICAAI 
ICAAI 
ICAAI 
ICBOI 
ICBOI 
ICBOI 
1CB6I 
ICBCI 
ICBCI 
ICBCI 
ICCOI 
ICCOI 
1CC4I 
1CC4I 
1CC8I 
1CC8I 
1CC8I 
1CC8I 
ICCCI 
ICDOI 
1CD4I 
1CD6I 



Do keyboard/mouse reset before continuing boot process 



STRTBOOT 



48E7 8080 
6100 EE22 
6100 EE38 
4238 02B0 
4CDF 0101 
4ED2 



MOVEM.L AO/DO,-(SP) 
BSR RSTKBD 
HSR CLRRST 
CLR.B KBDQ 
MOVEM.L (SP)+,AO/DO 
JMP (A2) 

.PAGE 



;save regs 

;send reset signal 

;then clear it 

; clear first byte of keyboard queue 

(■restore regs 

;and away we go ... 



Error occurred - output error message and go to monitor 



7027 

IICO 01B4 
OCOO 0027 
6720 

6100 OICC 
6512 



11E8 OOBA 01B6 



11E8 00C4 01B5 
11E8 0058 01B7 



6100 0198 
6100 0084 
6100 EAIC 



6100 0092 
1038 01B4 
OCOO 0007 
6614 



;set timeout error code 

;save the error status 

; timeout? 

;skip if yes 

; ensure intrpt cleared 

;exit if error 



DSKTIMERR 

MOVEQ #TIMOOT , DO 

DSKCHK MOVE.B D0,BOOTDATA 

CMPI.B #TIMOUT,D0 

BEQ . S DSKERR 

BSR CLRFDIR 

BCS . S DSKOUT 

.IF USERINT = 
.ENDC 



DSKBAD MOVE.B CHKCNT (AO ) , BOOTDATA+2 ; and data checksum count 

.IF NEWTWIG = 1 

MOVE.B CHKCNT2(A0) ,B00TDATA+1 ; and address checksum count 
MOVE.B RTRYCNT(AO) ,B00TDATA+3 ; and retry count 

.ENDC 



DSKOUT BSR 
DSKDIS BSR 
DSKERR BSR 



EJCTDSK 

DSABLDSK 

SETBUSVCT 



.IF USERINT = 
.ELSE 

BSR CHKDRXVE 
MOVE.B BOOTDATA,D0 
CMP.B #NODISK,D0 
BNE.S @1 



;then eject the disk 
; disable both drives 
; restore default bus error vector 



;go detennine drive 
;get error code 
;no disk error? 
;skip if not 



RMOOO 
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1CD6I 
1CD6I 
1CD6I 
ICDAI 
ICDEI 
1CE2I 
1CE6I 
ICEAI 
ICEAI 
ICEEI 
ICFOI 
1CF4I 
1CF6I 
ICFAI 
ICFCI 
ICFCI 
IDOOI 
1D02I 
1D02I 
1D06I 
IDOAI 
IDOAI 
IDOAI 
IDOAI 
IDOAI 
IDOAI 
IDOEI 
IDOEI 
IDOEI 
IDOEI 
IDOEI 
IDOEI 
IDOEI 
1D12I 
1D14I 
1D14I 
1D14I 
1D14I 
1D18I 
IDIAI 
IDIAI 
IDICI 
IDICI 
IDICI 
1D20I 
1D24I 
1D28I 



45FA 1E7E 
6100 1850 
3A7C 287E 
6100 1780 
6000 0256 

OCOO 0017 
670C 

OCOO 0026 
6706 

OCOO 004B 
6606 

6100 1752 
6008 

45FA 1C47 
6100 17D2 



@1 



@2 



@3 



LEA 

BSR 

MOVE 

BSR 

BRA 

CMP.B 
BEQ.S 
CMP.B 
BEQ.S 
CMP.B 
BNE.S 

BSR 
BRA.S 

LEA 
BSR 
.ENDC 



INSERTD,A2 

DSPALRTICON 

#ERRSTRT,A5 

DSPNUM 

BFAIL2 

#RDWRERR,D0 

@2 

#BADTHDR,D0 

@2 

#EBOOT,D0 

@3 

DSPNUMICON 
TBCX)TERR 

I0BRD,A2 
DSPERRICON 



;2 statements deleted 

;set icon for insert rqst 
; display basic icon 
;set display pt for id # 
; and display it 
;then go signal user 

;read error? 
;skip if yes 
;bad file id? 

;boot error? 
;skip if not 

; display diskette icon with id # 
;and exit 

;error must be on I/O board 
; display icon 



CHG009 

CHG009 
CHG009 
CHG009 
CHG009 



TBOOTERR 



6000 022E 



.IF USERINT = 
.ELSE 

BRA BOOTFAIL 
.ENDC 



;and go signal boot failure 



Handler for Twiggy boot errors 

;go save exception info 



49FA 0004 
6008 



49FA 0004 
6010 



60A0 



31DF 0280 
2 IDF 0282 
31DF 0286 



DSKERR2 BSRS4 SAVEXCP 

# LEA @1,A4 

# BRA.S SAVEXCP 
#@1 

DSKERR3 BSRS4 BTERR 

# LEA @1,A4 

# BRA.S BTERR 
#@1 

BRA.S DSKOUT 



SAVEXCP 



MOVE (SP)+,EXCFC 

MOVE.L (SP)+,EXCADR 

MOVE (SP)+,EXCIR 
RTS4 



; regroup 



;and display error 



;save function code 

;and address 

;and instruction reg 
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1D28I 


4ED4 




1D2AI 






1D2AI 


3 IDF 


0288 


1D2EI 


2 IDF 


02 8A 


1D32I 


6100 


E306 


1D36I 


3E7C 


0480 


1D3AI 


6100 


E970 


1D3EI 


704B 




1D40I 


IICO 


01B4 


1D44I 






1D44I 


4ED4 




1D46I 






1D46I 






1D46I 






1D46I 






1D46I 






1D46I 






1D46I 






1D46I 






1D46I 






1D46I 






1D46I 






1D46I 






1D46I 


207C 


OOFC COOl 


1D4CI 


117C 


0088 0002 


1D52I 


lOBC 


0087 


1D56I 


6100 


OOAC 


1D5AI 


4E75 




1D5CI 






1D5CI 






1D5CI 






1D5CI 






1D5CI 






1D5CI 






1D5CI 






1D5CI 






1D5CI 






1D5CI 






1D5CI 






1D5CI 






1D5CI 






1D5CI 


45FA 


IFCO 


1D60I 


1238 


0535 


1D64I 


4A01 




1D66I 


6604 




1D68I 






1D68I 







JMP 



(A4) 



BTERR 



MOVE 


(SP)+,EXCSR 


;save status reg 


MOVE.L 


(SP)+,EXCPC 


;and pc 


BSR 


SAVEREGS 


;save regs 


MOVEA 


#STKBASE,SP 


; reset stack pointer 


BSR 


SETVCTRS 


;reinit vectors 


MOVEQ 


#EBOOT,D0 


;set boot error 


MOVE.B 


D0,BOOTDATA 


;and save 


RTS4 






JMP 


(A4) 





Subroutine to disable interrupts from both Twiggy drives 
Inputs : 

None 
Outputs : 

Carry bit set if timeout error (in CMDCHK) . 
Side Effects: 

AO trashed (other regs trashed in CMDCHK) 



DSABLDSK 



MOVE.L #DISKMEM,AO 

MOVE.B #$88,CMD(A0) 

MOVE.B #DSABLINT, (AO) 

BSR CMDCHK 
RTS 



;set ptr to shared memory 

; disable ints from both drives 

;wait for command to be taken 
;then return 



Subroutine to determine drive # in error and get icon ptr 
Inputs : 

Location DRIVE = drive id # (0 or $80) 
Outputs : 

A2 = ptr to diskette icon 

Dl = id # 
Side Effects: 

None 



CHKDRIVE 



LEA 
MOVE.B 
TST.B 
BNE.S 



DISKETTE, A2 
DRIVE, Dl 
Dl 

@1 



;set ptr for diskette icon 
;get drive id 
; drive #1? 
; skip if no 



.IF USERINT = 
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1D68I 
1D68I 
1D6AI 
1D6AI 
1D6AI 
1D6CI 
1D6CI 
1D6CI 
1D6CI 
1D6EI 
1D6EI 
1D6EI 
1D70I 
1D70I 
1D70I 
1D70I 
1D70I 
1D70I 
1D70I 
1D70I 
1D70I 
1D70I 
1D70I 
1D70I 
1D70I 
1D70I 
1D70I 
1D70I 
1D70I 
1D70I 
1D76I 
1D76I 
1D76I 
1D76I 
1D7AI 
1D7AI 
1D7CI 
1D80I 
1D84I 
1D88I 
1D88I 
1D8CI 
1D8CI 
1D90I 
1D94I 
1D98I 
1D9AI 



7201 



6002 



7202 



4E75 



@1 



@2 



.ELSE 

MOVEQ #1,D1 
.ENDC 

BRA.S @2 

.IF USERINT = 
.ELSE 

MOVEQ #2,D1 
.ENDC 

RTS 



else set up id code 



else set up id code 



;exit 



.IF 

.ENDC 

.PAGE 



EXTERNAL = 1 



Read a Twiggy sector routine. Uses hardware view of the world, with 

12 bytes for header and 256 bytes (512 for new format) of data per sector. 

Also assumes registers: 



DO = speed (for new Twiggy code) 
Dl = drive/side/sector/track 
D2 = timeout for read 
D3 = scratch 



AO = disk shared memory address 

Al = address to load header (12 bytes) 

A2 = address to load data (256 or 512 bytes) 

A3 = VIA address for FDIR 



If error, returns with carry bit set and error code in DO. 



243C OOCO 0000 



48E7 1078 

40E7 

007C 0700 
6100 0114 
03C8 0004 

1140 OOOC 

4228 0002 
lOBC 0081 
6100 00A8 
6556 
1028 0010 



TWGRD 



TWGREAD 



MOVE.L 


#FDIRTIME,D2 


.IF TWIGGY = 1 


MOVEM.L 


D3/A1-A4,-(SP) 


DISABLE 




MOVE 


SR,-(SP) 


ORI 


#$0700, SR 


BSR 


CHKFDIR 


MOVER. L 


D1,DRV(A0) 


.IF 


NEWTWIG = 1 


MOVE.B 


DO, SPEED (AO) 


.ENDC 




MOVE.B 


#READS,CMD(AO) 


MOVE.B 


#EXRW, (AO) 


BSR 


CHKFIN 


BCS.S 


TWGOUT 


MOVE.B 


STAT(AO) ,D0 



set default timeout value 



save regs 

disable interrupts 



; ensure no ints pending 
; set disk ptrs 

;set speed value 

; set for read operation 

; and go do it 

; wait 

; exit if timeout 

; get disk return code 



RMOOO 
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1D9E 


117C 


OOCC 0002 


1DA4 


lOBC 


0085 


1DA8 


615A 




IDAA 


6544 




IDAC 


4A00 




IDAE 


6642 




IDBO 






IDBO 






IDBO 






IDBO 






IDBO 






IDBO 


49E8 


03E8 


1DB4 


074C 


0000 


1DB8 


22C3 




IDBA 


074C 


0008 


IDBE 


22C3 




IDCO 


074C 


0010 


1DC4 


22C3 




1DC6 






1DC6 


49E8 


0400 


IDCA 


303C 


OOIF 


IDCE 


074C 


0000 


1DD2 


24C3 




1DD4 


074C 


0008 


1DD8 


24C3 




IDDA 


074C 


0010 


IDDE 


24C3 




IDEO 


074C 


0018 


1DE4 


24C3 




1DE6 


D8FC 


0020 


IDEA 


51C8 


FFE2 


IDEE 


600A 




IDFO 






IDFO 






IDFO 






IDFO 






IDFO 






IDFO 


7027 




1DF2 






1DF2 


46DF 




1DF4 


003C 


0001 


1DF8 


6004 




IDFA 






IDFA 






IDFA 


46DF 




IDFC 


4280 




IDFE 







MOVE.B 


#$CC,CM)(A0) 


MOVE.B 


#CLRSTAT, (AO) 


BSR.S 


CMDCHK 


BCS.S 


TWGOUT 


TST.B 


DO 


BNE.S 


TWGERR 



; clear RWTS interrupt bits 

;wait until and taken 
;exit if error 
; check status code 
; and exit if error 



Bead successful - transfer header and then data to main memory 



.IF NEWTWIG = 

.ELSE 

LEA DSKBUFF(AO) ,A4 

XFRHDR MOVEP.L (A4) ,D3 

MOVE.L D3,(A1)+ 

MOVEP.L 8(A4) ,D3 

MOVE.L D3,(A1)+ 

MOVEP.L 16 (A4) ,D3 

MOVE.L D3,(A1)+ 



;set address for Twiggy buffer 
;load header bytes 





LEA 


DSKDATA(AO) ,A4 




MOVE.W 


#31, DO 


XFRDATA MOVEP.L 


(A4) ,D3 




MOVE.L 


D3,(A2)+ 




MOVEP.L 


8(A4) ,D3 




MOVE.L 


D3, (A2)+ 




MOVEP.L 


16 (A4) ,D3 




MOVE.L 


D3, (A2)+ 




MOVEP.L 


24 (A4) ,D3 




MOVE.L 


D3,(A2)+ 




ADD.W 


#32, A4 




DBF 


DO, XFRDATA 




BRA.S 


TWGOK 




.ENDC 




; Error exit - 


set carry bit 


TWGOOT 


MOVEQ 


#TIMOOT,D0 


TWGERR 


ENABLE 




# 


MOVE 


(SP)+,SR 




ORI.B 


#$01,CCR 




BRA.S 


TWGRXIT 


TWGOK 


ENABLE 




# 


MOVE 


(SP)+,SR 




CLR.L 


DO 



;set address for data 
;need to load 512 bytes 
;load data bytes 



;loop until done 
;and go to exit 



set timeout error 
restore interrupt mask 

and exit 

restore interrupt mask 

set OK return code 



CHG025 
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IDFE 


4CDF 


1E08 




1E02 


4E75 






1E04 








1E04 








1E04 








1E04 








1E04 








1E04 








1E04 








1E04 








1E04 








1E04 








1E04 


48E7 


1010 




1E08 


263C 


0012 


0000 


lEOE 


207C 


OOFC 


COOl 


1E14 


267C 


OOFC 


D901 


lElA 


022B 


OOBF 


0010 


1E20 


4A10 






1E22 


6714 






1E24 


0813 


0006 




1E28 


6606 






1E2A 


5383 






1E2C 


66F6 






1E2E 


6004 






1E30 


5383 






1E32 


66EC 






1E34 


003C 


0001 




1E38 


4CDF 


0808 




1E3C 


4E75 






1E3E 








1E3E 








1E3E 








1E3E 








1E3E 








1E3E 








1E3E 








1E3E 








1E3E 








1E3E 








1E3E 


2602 






1E40 








1E40 


267C 


OOFC 


DD81 


1E46 


0813 


0004 




1E4A 


6608 






1E4C 


5383 






1E4E 


66F6 






1E50 


003C 


0001 





TWGRXIT MOVEM.L (SP) +,D3/A1-A4 
RTS 



restore regs 

and return to caller 



Subroutine to check for disk command taken. Also does check for DSKDIAG 
in case Twiggy controller becomes busy servicing second disk drive before 
command is seen. Loop takes about 12.4 us if DSKDIAG OK, else DSKDIAG 
loop takes about 9.6 us . 

Destroys register AO 



CMDCH 


K MOVEM.L 


D3/A3,-(SP) 




MOVE.L 


#CMDTIME,D3 




MOVE.L 


#DISKMEM,AO 




MOVE.L 


#VIA2BASE,A3 




AMDI.B 


#$BF,DDRB2(A3) 


@1 


TST.B 


(AO) 




BEQ.S 


@2 


@3 


BTST 


#DSKDIAG,IRB2(A3) 




BNE.S 


@4 




SOBQ.L 


#1,D3 




BNE.S 


@3 




BRA.S 


@5 


@4 


SUBQ.L 


#1,D3 




BNE.S 


@1 


@5 


ORI.B 


#$01,CCR 


@2 


MOVEM.L 
RTS 


(SP)+,D3/A3 



save regs 

set timeout for about 15 sees 

set ptr to shared memory 

also set up to monitor DSKDIAG 

cmd taken when byte ' ed 

; check if controller not ready 
skip if OK 
else loop until timeout or ready 

take error exit 

loop until yes or timeout 
set error 
restore regs 



Subroutine to check for disk interrupt (FDIR asserted) - loop takes 8 . 8us 
Destroys register D3 and A3 



CHKFIN 



@1 



.IF NEWTWIG = 
.ENDC 

.IF NEWTWIG = 1 
MOVE.L D2,D3 
.ENDC 

MOVE . L #VIA1BASE , A3 
BTST #4, (A3) 
BNE.S @2 
SUBQ.L #1,D3 
BNE.S @1 
ORI.B #$01,CCR 



;set user-supplied timeout 

;set ptr for interface 

;FDIR? 

;exit if yes 

;else loop 
;set error 
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1E54 


4E75 






1E56 








1E56 








1E56 








1E56 








1E56 








1E56 








1E56 








1E56 








1E56 








1E56 


611A 






1E58 


6516 






1E5A 


243C 


0018 


0000 


1E60 








1E60 


117C 


0002 


0002 


1E66 


lOBC 


0081 




1E6A 


61D2 






1E6C 


6502 






1E6E 


6102 






1E70 


4E75 






1E72 








1E72 








1E72 








1E72 








1E72 








1E72 








1E72 


117C 


OOFF 


0002 


1E78 


lOBC 


0085 




1E7C 


6186 






1E7E 


267C 


OOFC 


DD81 


1E84 


7619 






1E86 


0813 


0004 




1E8A 


6708 






1E8C 


5343 






1E8E 


66F6 






1E90 


003C 


0001 




1E94 


4E75 






1E96 








1E96 








1E96 








1E96 








1E96 








1E96 


267C 


OOFC 


DD81 


1E9C 


0813 


0004 




lEAO 


6702 






1EA2 


61CE 






1EA4 


4E75 







@2 RTS 

.PAGE 



Subroutine to eject disk 

Assiomes AO = ptr to disk shared memory 



EJCTDSK 



@1 



.IF 


NEWTWIG = 1 


BSR.S 


CLRFDIR 


BCS.S 


@1 


MOVE.L 


#EJCTTIME,D2 


.ENDC 




MOVE.B 


#UNCLAMP,CMD(AO) 


MOVE.B 


#EXRW, (AO) 


BSR.S 


CHKFIN 


BCS.S 


@1 


BSR.S 


CLRFDIR 


RTS 





; ensure interrupts cleared 
;exit if error 
;set eject timeout 

;set up cmd 

;go do it 

;wait for FDIR 

;skip if error 

; clear intrpt and return 



Subroutine to clear interrupt. Waits for FDIR to go low before return. 
Assiomes AO = ptr to disk shared memory. 



CLRFDIR MOVE.B 
MOVE.B 
BSR.S 
MOVE.L 
MOVEQ 

@1 BTST 
BEQ.S 
SOBQ 
BNE.S 
ORI.B 

@2 RTS 



#$FF,CMD(AO) 

#CLRSTAT, (AO) 

CMDCHK 

#VIA1BASE,A3 

#25, D3 

#FDIR, (A3) 

@2 

#1,D3 

@1 

#01,CCR 



; clear FDIR 

;wait until cmd taken 

;then wait for FDIR to go low 

;set timeout for about 200 us 

;FDIR? 

;skip if none 

;else loop until gone or timeout 

;set error indicator 



Subroutine to ensure FDIR gone after clear status cmd 



CHKFDIR MOVE.L #VIA1BASE,A3 

BTST #FDIR, (A3) 

BEQ.S @1 

BSR.S CLRFDIR 

@1 RTS 



;set ptr for FDIR status 
;FDIR present? 
;skip if not 
;else do clear 
;and exit 
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1EA.6I 
1EA.6I 
1EA6I 
1EA6I 
1EA6I 
1EA.6I 
1EA.6I 
1EA6I 
1EA.6I 
1EA6I 
1EA.6I 
1EA6I 
1EA6I 
1EA.6I 
1EA.6I 
1EA6I 
1EA6I 
1EA6I 
1EA.6I 
1EA.6I 
lEAAl 
lEAEI 
lEBOl 
lEBOl 
lEBOl 
lEBOl 
lEBOl 
lEBOl 
lEBOl 
lEBOl 
lEBOl 
lEBOl 
lEBOl 
lEBOl 
lEBOl 
lEBOl 
lEBOl 
lEBOl 
lEBOl 
lEBOl 
lEBOl 
lEBOl 
1EB4I 
1EB6I 
1EB8I 
lEBAI 
lEBCI 



.IF USERINT = 
.ENDC 

.IF USERINT = 1 



; {USERINT} 



Subroutine to enable display of wait icon. Main entry point creates 
alert box also, secondary enrty point (DSFHTICON) invokes icon display 
only. 
Inputs : 

None 
Outputs : 

None 
Side Effects: 

A2 ,A3 trashed 



45FA 1B95 
6100 1680 
4E75 



WAITALRT 






DSPWTICON 






LEA 


WAITIC0N,A2 


;and displ 


BSR 


DSPALRTICON 




RTS 






.ENDC 




; {USERINT} 


.ENDC 




; {TWIGGY} 



Routine to reinit vectors before release of control to boot loader. 
Sets all vectors other than reset and interrupts to jimtp to the 
failing boot device handler. 

Inputs : 

A3 = address of boot error handler for bus/address errors 

A4 = address of boot error handler for other exceptions 
Outputs : 

None 
Side Effects: 

AO/Dl trashed 



307C 0008 

20CB 

20CB 

7214 

20CC 

5341 



VCTRINIT 



@1 



MOVEA 


#BUSVCTR,AO 


MOVE.L 


A3, (A0)+ 


MOVE.L 


A3, (A0)+ 


MOVEQ 


#20, Dl 


MOVE.L 


A4, (A0) + 


SUBQ 


#1,D1 



;get ptr to vector locations 

;set up for bus error 

;and address error 

;# of remaining low vectors to init 

; setup handler for errors up 

; to spurious intrpt vector 



RMOOO 



Computer Boot ROM 2.48 Listing • 142 of 265 



lEBE 


66FA 




lECO 


307C 


0080 


1EC4 


7220 




1EC6 


20CC 




1EC8 


5341 




lECA 


66FA 




lECC 


4E75 




lECE 






lECE 






lECE 






lECE 






lECE 






lECE 






lECE 






lECE 






lECE 






lECE 






lECE 






lECE 






lECE 






lECE 






lECE 


61D6 




lEDO 






lEDO 






lEDO 


227C 


0001 FFEC 


1ED6 


247C 


0002 0000 


lEDC 


4281 




lEDE 


243C 


0120 0000 


1EE4 


760A 




1EE6 


7803 




1EE8 


6100 


0086 


lEEC 


6522 




IEEE 






IEEE 






IEEE 






IEEE 


3029 


0004 


1EF2 


0C40 


AAAA 


1EF6 


6704 




1EF8 


7054 




lEFA 


6014 




lEFC 






lEFC 


47FA 


0060 


1F04 


61AA 




1F06 






1F06 


247C 


0002 0000 


IFOC 


6000 


FD74 


IFIO 







@2 



BNE.S 


@1 


MOVEA 


#TRPVCTO,AO 


MOVEQ 


#32, Dl 


MOVE.L 


A4, (A0) + 


SOBQ 


#1,D1 


BNE.S 


@2 


RTS 




.IF 


EXTERNAL = 1 


.ENDC 




.PAGE 




.IF PROFLE = 1 



;next do all trap vectors 
;set count 
;and do init 



RMOOO 



;ASSEMBLE ONLY IF PROFILE CODE NEEDED 



Routine to boot from Profile hard disk attached to parallel port 
Sets up input parameters and then calls READ routine. If no error 
on return (carry not set) , a jump to the loaded boot code is done. 



ROBOOT 

.IF USERINT = 




.ELSE 






BSR 


WAITALRT 


; display wait icon 


.ENDC 






MOVE.L 


#HDRB0FR,A1 


; set up ptr to save header 


MOVE.L 


#HDRBUFR+20,A2 


; ptr for data 


CLR.L 


Dl 


; set sector # 


MOVE.L 


#STRTIME,D2 


; set timeout count (3 mins) 


MOVEQ 


#RCNT,D3 


; set retry count 


MOVEQ 


#TCNT,D4 


; set threshold count 


BSR 


PROREAD 


; go get data 


BCS.S 


HDSKERR 


; exit if error 



Now verify header and if OK, jimp to startup program 



; get file id 

; is it a boot block? 

; continue if OK 

; else set error code 

; and exit 



PBOOT 



MOVE 


FILEID(Al) ,D0 


CMP 


#BOOTPAT,D0 


BEQ.S 


PBOOT 


MOVEQ 


#BADHDR,DO 


BRA.S 


HDSKERR 


LEA 


HDERR2,A3 


BSR 


VCTRINIT4 



MOVE . L #HDRBUFR+2 , A2 
BRA STRTBOOT 



;set up vectors in case of errors 



; set ptr for data 

; and go start execution 
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IFIO 






IFIO 






IFlO 






IFIO 






IFIO 






IFIO 






IFIO 


0C38 


0003 02AF 


1F16 


6706 




1F18 


45FA 


1B85 


IFIC 


6004 




IFIE 


45FA 


IBBA 


1F22 






1F22 


OCOO 


0050 


1F26 


660E 




1F28 






1F28 






1F28 






1F28 


0807 


OOIC 


1F2C 


6608 




1F2E 


6100 


llAA 


1F32 


6000 


F8FA 


1F36 






1F36 


6100 


15A2 


1F3A 






1F3A 






1F3A 






1F3A 






1F3A 






1F3A 






1F3A 


6100 


F6E6 


1F3E 






1F3E 






1F3E 


6100 


F788 


1F42 


6100 


F784 


1F46 


6100 


F780 


1F4A 


6100 


11C8 


1F4E 


0238 


OOFC 02A2 


1F54 


08F8 


0000 02A2 


1F5A 


6000 


0640 


1F5E 






1F5E 






1F5E 


49FA 


0006 


1F62 


6000 


FDB8 


1F66 






1F66 






1F66 


49FA 


0006 


1F6A 


6000 


FDBE 



; Error detected - output message and abort boot 

HDSKERR 

.IF USERINT = 
.ELSE 



@2 
@3 



CMP.B #3,SYSTYPE 

BEQ . S @2 

LEA PR0IC0N,A2 

BRA.S @3 

LEA UPPER,A2 

CMP.B #NODSK,D0 

BNE.S @1 



/check system type 

;skip if internal disk 

;else setup Profile icon 

;skip to do display 

;set for integral hard disk 

/Profile not attached error? 
;skip if not 



C:hG009/CHG029 
C:hG009/CHG029 

c:hgoo9 
c:hgoo9 



If default boot and no Profile attached, go to boot menu 



BTST #ALTB00T,D7 

BNE.S @1 

BSR CLRDESK 

BRA LSTCHK 



@1 



BSR 
.ENDC 



DSPERRICON 



;is this a default boot? 

;skip if not 

/clear desktop 

;and do beep and display the boot menu 

/display with bad mark 

/{PROFILE} 



Sound error tones and display error code 



BCX)TFAIL 



BSR 



DSPCODE 



BFAIL2 





BSR 


HIPTCH 




BSR 


HIPTCH 




BSR 


HIPTCH 




BSR 


CLRMENU 




ANDI.B 


#$FC,STATFLGS 




BSET 


#NORSTRT , STATFLGS 




BRA 


MONITOR 


HDERR2 


BSR4 


SAVEXCP 


# 


LEA 


@1,A4 


# 


BRA 


SAVEXCP 


#@1 






HDERR3 


BSR4 


BTERR 


# 


LEA 


@1,A4 


# 


BRA 


BTERR 



/display error code 

/startup failure causes hi, hi, hi tones 



/clear menu bar 

/allow CONTINUE option from boot error 

/ but not restart option 

/and go to monitor 



/save exception info 



/regroup from error 
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1F6EI 
1F6EI 
1F70I 
1F70I 
1F70I 
1F70I 
1F70I 
1F70I 
1F70I 
1F70I 
1F70I 
1F70I 
1F70I 
1F70I 
1F70I 
1F70I 
1F70I 
1F70I 
1F70I 
1F70I 
1F70I 
1F70I 
1F70I 
1F70I 
1F74I 
1F74I 
1F76I 
1F7AI 
1F7CI 
1F7CI 
1F7EI 
1F80I 
1F82I 
1F82I 
1F82I 
1F82I 
1F82I 
1F86I 
1F88I 
1F8AI 
1F8CI 
1F8CI 
1F8EI 
1F90I 
1F90I 
1F90I 
1F90I 



#@1 



60A0 



BRA.S HDSKEPR 

.IF EXTERNAL = 1 
.ENDC 

.PAGE 



;and go display it 



First initialize and then ensure disk is attached by checking OCD line. 
Assiomes ACR and lER registers of VIA set up by caller. For boot, these 
are cleared by power-up reset. 
Register usage: 



DO = scratch use AO 

Dl = block to read Al 

D2 = timeout count A2 

D3 = retry count A3 

D4 = threshold count A4 
Returns : 

DO = error code (0 = OK) 

Dl = error bytes (4) 

D2 - D7 and Al - A6 are preserved 



= VIA address for parallel port interface 
= address to save header 
= address to save data 
= scratch 
= unused 



48E7 3F7E 

40E7 

007C 0700 
6174 

6704 
7050 
605C 



0810 0001 
6608 
5382 
66F6 

7051 
604E 



6100 00B6 



PROREAD MOVEM.L D2-D7/A1-A6,- (SP) 

DISABLE 

MOVE SR,-(SP) 
ORI #$0700, SR 

BSR.S PROINIT 

BEQ . S CHKBSY 
MOVEQ #NODSK,D0 
BRA.S PROERR 



save regs 

ensure interrupts off 



init for Profile access and check 

if attached 
go on if OK 

else set error code and 
skip if error - no disk attached 



Now check if Profile ready - wait time presently set for about 100 seconds 
to allow enough time for normal Profile startup time of about 80 seconds 



CHKBSY BTST #BSY,IRB2 (AO) 

BNE . S TRYRD 

SOBQ.L #1,D2 

BNE . S CHKBSY 

MOVEQ #DSKBSY,DO 

BRA.S PROERR 



; check if Profile ready (not busy) 

; skip if yes 

; else loop until timeout 



; set disk busy error code 
; and go to error exit 



; Now start read and check status to see if OK 

TRYRD BSR STRTRD ; go begin read process 
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1F94 


6418 




1F96 


6100 


018A 


1F9A 


6100 


OOAC 


1F9E 


640E 




IFAO 


6100 


01A4 


1FA4 


6100 


017C 


1FA8 


6100 


009E 


IFAC 


6530 




IFAE 






IFAE 


4A78 


01B6 


1FB2 


6A06 




1FB4 


6100 


0092 


1FB8 


6524 




IFBA 






IFBA 


4AB8 


01B4 


IFBE 


6712 




IFCO 


2238 


01B4 


1FC4 


2001 




1FC6 


0280 


C140 COOO 


IFCC 


6704 




IFCE 


7053 




IFDO 


600C 




1FD2 






1FD2 






1FD2 






1FD2 






1FD2 


7004 




1FD4 


615C 




1FD6 






1FD6 


707F 




1FD8 


224A 




IFDA 


6156 




IFDC 






IFDC 


6008 




IFDE 






IFDE 






IFDE 






IFDE 


46DF 




IFEO 


003C 


0001 


1FE4 


6004 




1FE6 






1FE6 






1FE6 






1FE6 


46DF 




1FE8 


4280 




IFEA 






IFEA 


4CDF 


7EFC 



skip if OK 010016 

else check for ready 010016 

and do retry OIG016 

continue if OK OIG016 

else issue reset signal OIG016 

wait until ready OIG016 

and try one more time OIG016 
finally exit if error 

@1 TST.W STAT3 ; check if reset error OIG016 

skip if not 

else go try read again 
and abort if error 

@2 TST.L STATBFR ; check coitplete status 

skip if OK 
else get status 
save for use 
mask don ' t care bits 
and continue if OK 
else set error code 
and go to error exit 

All OK - go read block and transfer to memory; do as multiple moves for 
max transfer rate. 



BCC.S 


@1 


HSR 


WFNBSY 


BSR 


STRTRD 


BCC.S 


@1 


BSR 


DOCRES 


BSR 


WFNBSY 


BSR 


STRTRD 


BCS.S 


PROERR 


TST.W 


STAT3 


BPL.S 


@2 


BSR 


STRTRD 


BCS.S 


PROERR 


TST.L 


STATBFR 


BEQ.S 


RDDATA 


MOVE.L 


STATBFR, Dl 


MOVE.L 


D1,D0 


ANDI.L 


#STATMSK,DO 


BEQ.S 


RDDATA 


MOVEQ 


#STATNZ,DO 


BRA.S 


PROERR 



RDDATA MOVEQ #<HDRSIZE/4>-l,D0 
BSR.S READIT 

MOVEQ #<BLKSIZE/4>-l,D0 
MOVEA.L A2,A1 
BSR.S READIT 



set count for header read 
go do it 

set count for data read 
set new read location 



and go to exit 



BRA.S PROXIT 

Error exit - set carry bit as indicator flag 

MOVE (SP)+,SR /restore interrupt mask 

ORI.B #$01,CCR 
BRA.S PR0XIT2 



; Normal exit - restore regs and exit 
PROXIT ENABLE 
# MOVE (SP)+,SR 

CLR.L DO 



PR0XIT2 MOVEM.L (SP) +,D2-D7/A1-A6 



/restore interrupt mask 
;set OK return code 



CHG025 
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IFEE 


4E75 










RTS 








IFFO 


















IFFO 
































IFFO 










Siobroutine to init parallel port for Profile access. 




IFFO 










Inputs : 








IFFO 












None 








IFFO 










Outputs : 








IFFO 












DO cleared for error use 






IFFO 












AO = VIA base address for parallel port 




IFFO 












CCR zero bit set if cable connected 




IFFO 










Side 


Effects 








IFFO 












None 








IFFO 






























IFFO 


















IFFO 








PROINIT 










IFFO 


4280 








CLR.L 


DO 


clear for result use 




1FF2 


267C 


OOFC 


DD81 




MOVE.L 


#VIA1BASE,A3 


get kybd VIA base address 


CHG036 


1FF8 


0013 


OOAO 






ORI.B 


#$AO,ORB1(A3) 


initialize profile-reset and parity-reset 


CHG036 


IFFC 


002B 


OOAO 


0004 




ORI.B 


#$A0,DDRB1(A3) 


and set lines as outputs 


CHG036 


2002 


207C 


OOFC 


D901 




MOVE.L 


#VIA2BASE,A0 


get paraport VIA base address 




2008 


0228 


007B 


0060 




ANDI.B 


#$7B,PCR2(A0) 


set Ctrl CA2 pulse mode/positive edge 




200E 


0028 


006B 


0060 




ORI.B 


#$6B,PCR2(A0) 






2014 


4228 


0018 






MOVE.B 


#$00,DDRA2(A0) 


set port A bits to input 




2018 


0010 


0018 






ORI.B 


#$18,ORB2(A0) 


then set direction=in , cmd=false, 


CHG036 


201C 


0210 


OOFB 






ANDI.B 


#$FB,ORB2(A0) 


enable=true 


CHG036 


2020 


0228 


OOFC 


0010 




ANDI.B 


#$FC,DDRB2(A0) 


set port B bits 0,l=in, 




2026 


0028 


OOIC 


0010 




ORI.B 


#$1C,DDRB2(A0) 


2,3, 4=out 




202C 


0810 


0000 






BTST 


#OCD,IRB2(A0) 


check OCD line 




2030 


4E75 








RTS 




and exit 




2032 


















2032 
































2032 










Subroutine to read bytes from Profile 


Assumes: 




2032 










DO 


= byte 


count - 1 






2032 










AO 


= VIA address for parallel interface 




2032 










Al 


= memory load address 






2032 






























2032 


















2032 


12E8 


0008 




READIT 


MOVE.B 


IRA2(A0),(A1)+ 


read the bytes 




2036 


12E8 


0008 






MOVE.B 


IRA2(A0),(A1) + 






203A 


12E8 


0008 






MOVE.B 


IRA2(A0),(A1) + 






203E 


12E8 


0008 






MOVE.B 


IRA2(A0) , (Al) + 






2042 


51C8 


kYUK 






DBF 


DO, READIT 






2046 


4E75 








RTS 








2048 


















2048 










.PAGE 








2048 






























2048 








; Subroutine to begin the read process. 


First calls a routine that 
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2048 






2048 






2048 






2048 






2048 






2048 






2048 






2048 






2048 






2048 






2048 


367C 


0304 


204C 


2681 




204E 


1743 


0004 


2052 


1744 


0005 


2056 


611E 




2058 


651A 




205A 






205A 






205A 






205A 


7402 




205C 


615E 




205E 


6514 




2060 






2060 






2060 


367C 


01B4 


2064 


16E8 


0008 


2068 


16E8 


0008 


206C 


16E8 


0008 


2070 


16E8 


0008 


2074 






2074 


4E75 




2076 






2076 






2076 






2076 






2076 






2076 






2076 






2076 






2076 






2076 






2076 


48E7 


2800 


207A 


7401 




207C 


613E 




207E 


6412 




2080 


OCOO 


0055 


2084 


672C 





an appropriate response from Profile is executed. 
Assiomes regs : 



Then a wait for 



AO = VIA address 
Al = iinused 
A2 = unused 
A3 = scratch use 
A4 = unused 
If error, carry bit set and error code in DO. 



DO = scratch use 

Dl = block to read 

D2 = used for Profile cmd 

D3 = retry count 

D4 = threshold count 



STRTRD 



MOVI 


ZR. 


#a 


4DBUFR,A3 


MOVI 


:.L 


Dl 


, (A3) 


MOVI 


:.B 


D3 


, RETRY (A3) 


MOVI 


:.B 


D4 


, THRESH (A3) 


BSR 


s 


STATOl 


BCS 


s 


STRTXIT 



first set up command 

set read command (0) and block # 

set retry count 

set threshhold for sparing 

get 01 byte and send read command 

exit if error 



RMOOO 



OK so far - go check if Profile ready to send data 

; get 02 byte 
; exit if timeout error 



set buffer ptr 

read and save the status 



MOVEQ 


#2,D2 


BSR.S 


FINDD2 


BCS.S 


STRTXIT 


; Get status bytes 


GETSTAT MOVEA 


#STATBFR,A3 


MOVE.B 


IRA2(A0),(A3) + 


MOVE.B 


IRA2(A0),(A3) + 


MOVE.B 


IRA2(A0),(A3) + 


MOVE.B 


IRA2(A0),(A3) + 


STRTXIT RTS 





RMOOO 



RMOOO 



return to caller 



.PAGE 



Siobroutine to get in sync with Profile. 
Input regs: 

AO = VIA address 

A3 = ptr to command buffer 
If error, returns with carry bit set and error code in DO 



STATOl MOVEM.L D2/D4,-(SP) 
MOVE.L #1,D2 
BSR.S FINDD2 
BCC . S C0PY6 
CMP.B #TMOUT,D0 
BEQ . S STATERR 



save regs 

try to find state 01 

skip if OK 

else check if timeout error 

and exit if yes 
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2086 






2086 


6100 


OOAA 


208A 


4A00 




208C 


6624 




208E 






208E 


612C 




2090 


6524 




2092 






2092 


0210 


00F7 


2096 


117C 


OOFF 0018 


209C 


303C 


0005 


20A0 


115B 


0008 


20A4 


51C8 


FFFA 


20A8 


0010 


0008 


20 AC 


4228 


0018 


20B0 


6004 




20B2 






20B2 


003C 


0001 


20B6 






20B6 


4CDF 


0014 


20BA 


4E75 




20BC 






20BC 






20BC 






20BC 






20BC 






20BC 






20BC 






20BC 






20BC 






20BC 






20BC 






20BC 


48E7 


7800 


20C0 


0210 


OOEF 


20C4 


4228 


0018 


20C8 


4280 




2 OCA 


6130 




20CC 


6618 




20CE 






20CE 


1228 


0078 


20D2 


4203 




20D4 


B202 




20D6 


6704 




20D8 


7052 




20DA 


6002 




20DC 






20DC 


7655 







BSR 


WFNBSY3 




TST.B 


DO 




BNE.S 


STATERR 


@2 


BSR.S 


FINDD2 




BCS.S 


STATXIT 


C0PY6 


ANDI.B 


#$F7,ORB2(A0) 




MOVE.B 


#$FF,DDRA2(A0) 




MOVE.W 


#PCMDSZ,DO 


C0PY6LP 


MOVE.B 


(A3) + ,ORA2(A0) 




DBF 


D0,COPY6LP 




ORI.B 


#$08,ORB2(A0) 




MOVE.B 


#$00,DDRA2(A0) 




BRA.S 


STATXIT 



STATERR ORI.B #$01,CCR 

STATXIT MOVEM.L (SP)+,D2/D4 
RTS 

.PAGE 



; ensure Profile ready 
; check for timeout error 
; and exit if yes 

; try to find state 01 again 
; exit if error again 

; set dir=out 

; set port A bits to output 

; set command size 

; send the command bytes 

; reset dir=in 

; and set port A bits to input 

; then exit 

; set error indicator 

; restore regs 



RMOOO 



Subroutine to handshake with Profile and wait for command conpletion. 
Polls busy bit until it goes low (not busy) . 
Assiomes regs : 

AO = VIA address 

D2 = Expected response to previously issued command 
If error, carry bit set and error code in DO. 



FINDD2 



MOVEM.L 


D1-D4,-(SP) 


AMDI.B 


#$EF,ORB2(A0) 


MOVE.B 


#$00,DDRA2(A0) 


CLR.L 


DO 


BSR.S 


WFBSY 


BNE.S 


FINDERR 


MOVE.B 


P0RTA2 (AO) ,D1 


CLR.B 


D3 


CMP.B 


D2,D1 


BEQ.S 


RSPOK 


MOVEQ 


#BADRSP,DO 


BRA.S 


SNDRl 



RSPOK MOVEQ #$55, D3 



save regs 

set cmd=true 

set port A bits to input 

used for return code 

wait for busy 

exit if error 

get response in Dl w/o handshake 

used for reply to Profile 

did pippin return state requested ? 

skip if yes 

else set error code 

and go send reply 

set up OK reply 



RMOOO 
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2 ODE 






2 ODE 


612E 




20E0 






20E0 


4A00 




20E2 


6602 




20E4 






20E4 


613C 




20E6 






20E6 


4228 


0018 


20EA 


0010 


0018 


20EE 






20EE 


4A00 




20F0 


6704 




20F2 


003C 


0001 


20F6 






20F6 


4CDF 


OOIE 


20FA 


4E75 




20FC 






20FC 






20FC 






20FC 






20FC 






20FC 






20FC 






20FC 






20FC 






20FC 






20FC 






20FC 


383C 


fJj'Jj'J;' 


2100 






2100 


0810 


0001 


2104 


6706 




2106 


5344 




2108 


66F6 




210A 


7055 




210C 


4E75 




210E 






210E 






210E 






210E 






210E 






210E 






210E 






210E 


0210 


00E7 


2112 


117C 


OOFF 0018 


2118 


1143 


0078 


211C 


0010 


0010 



SNDRl BSR.S SENDRSP 

TST.B DO 

BNE . S FINDERR 

BSR.S WFNBSY 

FINDERR MOVE.B #$00,DDRA2 (AO) 

ORI.B #$18,ORB2(A0) 

TST.B DO 

BEQ . S FNDXIT 

ORI.B #$01,CCR 

FKDXIT MOVEM.L (SP)+,D1-D4 
RTS 



send response 

check return code 
skip if error 

now go wait for not busy 

reset port A bits to input 
and dir = in, cmd=false 

check return code 

skip if OK 

else set error indicator 

restore regs(but don't affect CCR bits) 



Subroutine to wait for Profile busy signal . Polls busy bit until it 
goes high (busy) . 
Assiomes regs : 

AO = VIA address 

D4 = timeout value if WFBSYl entry point used 
If error, error code in DO. 



WFBSY 



WFBSYl 



@9 



MOVE 


#RSPTIME,D4 


BTST 


#BSY,IRB2(A0) 


BEQ.S 


@9 


SUBQ 


#1,D4 


BNE.S 


WFBSYl 


MOVEQ 


#TMOUT,D0 


RTS 





; set response timeout = 100 msec 

; wait for busy 

; skip if OK 

; else loop until timeout 

; set timeout error 



Subroutine to send response command to Profile. 
Assumes regs : 

AO = VIA address 



SENDRSP ANDI.B #$E7,ORB2 (AO) 

MOVE . B #$FF , DDRA2 (AO ) 

MOVE . B D3 , P0RTA2 (AO ) 

ORI.B #$10,ORB2(A0) 



; set dir=out, cmd=true 

; set port A bits to output 

; send reply (00 or 55) w/o handshake 

; set cmd=false 
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21201 
21221 
21221 
21221 
21221 
21221 
21221 
21221 
21221 
21221 
21221 
21221 
21281 
212AI 
212AI 
21301 
21321 
21321 
21381 
21381 
213CI 
213EI 
21401 
21421 
21441 
21461 
21461 
21461 
21461 
21461 
21461 
214CI 
21501 
21541 
21581 
215CI 
215EI 
215EI 
215EI 
215EI 
215EI 
215EI 
215EI 
215EI 
215EI 
215EI 
215EI 



4E75 



RTS 



Subroutine to wait for Profile not busy signal. Polls busy bit until it 
goes low (not busy) . 
Assiomes regs : 

AO = VIA address 

D4 = timeout value if WFNBSYl entry point used 
If error, DO has error code. 



283C 0018 0000 
600E 

283C 0120 0000 
6006 

283C 0000 0500 

0810 0001 

6606 

5384 

66F6 

7055 

4E75 



WENBSY MOVE . L 
BRA.S 

WENBSY2 MOVE.L 
BRA.S 



#RDTIME,D4 
WFNBSYl 

#STRTIME,D4 
WFNBSYl 



WFNBSY3 MOVE.L #BSYTIME,D4 



WFNBSYl BTST 
BNE.S 
SOBQ.L 
BNE.S 
MOVEQ 

@9 RTS 



#BSY,IRB2(A0) 

@9 

#1,D4 

WFNBSYl 

#TMOUT,D0 



; set timeout for about 16 sees 



set initial Profile self-test time 



; set timeout for about 10 ms 

; wait for not busy 

; exit if OK 

; else loop until timeout 

; set timeout error 



CHG037 
CHG019 

CHG019 
CHG019 

RMOOO 



Subroutine to send reset to Profile controller to enable handshake retry 



267C OOFC DD81 
0213 007F 
6100 E97A 
0013 0080 
6100 E972 
4E75 



MOVE.L 


#VIA1BASE,A3 


ANDI.B 


#$7F,0RB1(A3) 


BSR 


DELAY 1 


ORI.B 


#$80,ORB1(A3) 


BSR 


DELAY 1 


RTS 




.ENDC 




.IF 


EXTERNAL = 1 


.ENDC 




.PAGE 





;use keyboard 6522 

;set reset signal 

/delay for controller to get signal 

/remove reset signal 

/delay for controller to respond 

;and exit 

;{PROFLE} 



CHG016 



CHG026 

CHG016/CHG026/CHG036 

CHG016 

CHGO 1 6/CHG02 6/CHG03 6 

CHG038 



Routine to boot from I/O slot. 

Verifies that slot has bootable card installed and then reads in ROM 
data. If status routine exists it is executed, else junp to boot 
routine done if checksiom OK. 
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215E 






215E 






215E 






215E 






215E 






215E 






215E 






215E 






215E 






215E 


1800 




2160 






2160 


2A78 


0008 


2164 


2C4F 




2166 






2166 


47FA 


002C 


216A 


21CB 


0008 


216E 


0309 


0000 


2172 






2172 






2172 






2172 






2172 


4A41 




2174 


6A28 




2176 


0C41 


FFFF 


217A 


6722 




217C 






217C 






217C 


6100 


FD28 


2180 






2180 






2180 


2449 




2182 


6148 




2184 


651C 




2186 






2186 






2186 


1038 


01B3 


218A 


247C 


0002 


2190 


6000 


FAFO 


2194 






2194 






2194 


705A 




2196 


21CD 


0008 


219A 


2E4E 




219C 


6008 




219E 






219E 


705B 




21A0 


6004 





Inputs : 

DO = boot device id ($4-$C) 

AO = scratch use 

Al = slot address 
Outputs : (relayed to loaded boot program) 

DO = boot device id 

Al = slot address 



IOSBCX)T MOVE.B D0,D4 

MOVE . L BUSVCTR , A5 

MOVE.L SP,A6 

LEA N0CRD,A3 

MOVE . L A3 , BUSVCTR 

MOVEP (Al) ,D1 

.IF USERINT = 
.ENDC 

TST Dl 

BPL . S INVID 

CMP #$FFFF,D1 

BEQ . S INVID 

.IF USERINT = 1 

BSR WAITALRT 
.ENDC 

MOVE.L A1,A2 

BSR.S RDIOSLT 

BCS . S BADBRD 



STATOK 



0002 



MOVE.B BOOTDVCE,D0 
MOVE . L #BTENTRY , A2 
BRA STRTBOOT 



;save boot device id 

; also acts as flag for status check 

;save bus error vector 

;save current stack pointer 

; setup new bus error vector 

;read card id 



; check if card installed 
;exit if not bootable 
; check if special case 



; display wait icon 



;get slot address 
;go check the board 
;exit if error 



; setup boot device id 

;and starting program address 

;and go do boot . . . 



; Error routines for I/O slot booting. Error code saved and error message output. 
NOCRD MOVEQ #NOC,D0 ;set error code 

MOVE.L A5, BUSVCTR ; restore bus error vector 

MOVE.L A6,SP ;and stack ptr 

BRA.S SENDMSG ;then go display msg 



INVID 



MOVEQ 
BRA.S 



#INV,DO 
SENDMSG 



;set error code 
;go do display 
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21A2 






21A2 


183S 


01B3 


21A6 






21A6 






21A6 


IICO 


01B4 


21AA 






21AA 






21AA 






21AA 






21AA 






21AA 


45FA 


1868 


21AE 


0C04 


0004 


21B2 


6E04 




21B4 


7201 




21B6 


600C 




2 IBS 






2 IBS 


0C04 


0007 


21BC 


6E04 




21BE 


7202 




2 ICO 


6002 




21C2 






21C2 


7203 




21C4 






21C4 


6100 


12 8A 


21CS 


6000 


FD70 


2 ICC 






2 ICC 






2 ICC 






2 ICC 






2 ICC 






2 ICC 






2 ICC 






2 ICC 






2 ICC 






2 ICC 






2 ICC 






2 ICC 






2 ICC 






2 ICC 






2 ICC 






2 ICC 






2 ICC 


48E7 


70C0 


21D0 


207C 


0001 FFFC 


21D6 


224A 




2 IDS 


4280 




2 IDA 


OlOA 


0004 


2 IDE 


5440 





BADBRD MOVE.B BCX)TDVCE,D4 

SENDMSG 

MOVE.B D0,BOOTDATA 



; restore boot device id for checking 



;save error code 



.IF USERINT = 
.ELSE 
determine which slot # being used 



@1 



LEA XCABD,A2 

CMP.B #I01PORT2,D4 

BGT.S @1 

MOVEQ #1,D1 

BRA.S @3 

CMP.B #I02PORT2,D4 

BGT . S @2 

MOVEQ #2,D1 

BRA.S @3 



@2 


MOVEQ 


#3,D1 


@3 


BSR 


DSPNUMICON 




BRA 


BOOTFAIL 




.ENDC 






.PAGE 






.IF NEWTWIG = 1 



;set general I/O slot card ptr 
;in slot 1 range? 

;yes - set slot #1 



;slot 2 range? 
;set slot 2 id 

;else must be slot 3 

; display error icon and slot # 
;and signal boot failure 



Routine to read ROM on an I/O slot. 
Inputs : 

A2 = I/O slot base address 

D4 = nonzero if status check also to be done, else for no check 

Dl = card id if status check needed 
Outputs : 

Carry bit set if error, error code saved in DO, error code from 

status check saved in BOOTDATA+1 
Side Effects: 

DO, A2 trashed 



RDIOSLT MOVEM.L D1-D3/A0-A1,- (SP) ;save regs 



MOVE.L #ADR12SK-4,A0 

MOVE.L A2,A1 

CLR.L DO 

MOVEP 4(A2),D0 

ADDQ #2, DO 



;set load pt (also load id/word count) 

;save slot address for later use 

; clear for use 

;read word count 

;incr for id/count fields 
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21E0 

21E4 

21E6 

21E8 

21EA 

21EA 

21EE 

21F0 

21F2 

21F4 

21F6 

21F8 

21FA 

21FC 

21FC 

2200 

2202 

2204 

S2206 

2206 

2206 

2206 

2208 

220A 

220E 

2210 

2210 

2214 

221A 

221E 

221E 

2220 

2222 

2226 

2228 

222A 

222A 

222C 

222C 

2230 

2234 

2234 

2238 

223A 

223A 

223A 

223A 



0C40 
6244 
4282 
4283 

050A 
3082 
3418 
D642 
E35B 
588A 
5340 
66EE 

050A 
D642 
4A43 
6624 



OFFF 



0000 



0000 



CMPI 


#$0FFF,D0 


BHI.S 


INVSUM 


CLR.L 


D2 


CLR.L 


D3 


LOADPGM MOVEP 


(A2) ,D2 


MOVE 


D2, (AO) 


MOVE 


(A0)+,D2 


ADD 


D2,D3 


ROL 


#1,D3 


ADDQ.L 


#4,A2 


SOBQ 


#1,D0 


BNE.S 


LOADPGM 


MOVEP 


(A2) ,D2 


ADD 


D2,D3 


TST 


D3 


BNE.S 


INVSUM 



; check for max coiint 
;exit if error 
; clear for use 



;read word 

;save in memory 

; reread it from memory 

;add to checksum 

; rotate for better effectiveness 

;buirp address ptr 

;loop until done 

;read expected checksum (2 bytes) 

;add to calculated checksum 

; check for result (also clears carry bit) 

;skip if error 



Do status check if desired and available 



4A44 
672A 
0801 
6724 

48E7 
4EB9 
4CDF 

4A40 
6712 
IICO 
705D 
6002 

705C 

llCO 
003C 

4CDF 
4E75 



OOOE 



0F3E 

0002 0000 
7CF0 



01B5 



TST 
BEQ.S 
BTST 
BEQ.S 

MOVEM.L 

JSR 

MOVEM.L 

TST 

BEQ.S 

MOVE.B 

MOVEQ 

BRA.S 



D4 ;do status check? 

RDIOXIT ;skip if not 

#STBIT,D1 ; status routine available? 

RDIOXIT ;skip if not 

D4-D7/A2-A6,- (SP) ;save regs not already saved 
STENTRY ;go execute status routine 

(SP)+,D4-D7/A2-A6 ; restore regs 



DO 

RDIOXIT 

DO,BOOTDATA+1 

#BADST,DO 

SAVERR 



INVSUM MOVEQ #BADSM,DO 



01B4 
0001 

030E 



SAVERR MOVE.B 
ORI.B 

RDIOXIT MOVEM.L 
RTS 



D0,BOOTDATA 
#$01,CCR 



; check status 
;skip if no error 
;save card error code 
;set general error code 



;set invalid checksian 

;save error code 
;set error indicator 



(SP)+,D1-D3/A0-A1 ; restore regs 



.ENDC 

.IF BURNIN = 1 
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223AI 
223AI 
223AI 
223AI 
223AI 
223AI 
223AI 
223AI 
223AI 
223AI 
223AI 
22421 
22441 
224AI 
22501 
22501 
22521 
22541 
22561 
22581 
22581 
225AI 
22601 
22681 
226CI 
22701 
22701 
22701 
22701 
22701 
22721 
22761 
22781 
227AI 
227CI 
22801 
22821 
22881 
228AI 
228EI 
22901 
22921 
22961 
229AI 
229AI 
229AI 
229AI 



.PAGE 



Special code to enable bumin cycling by the ROM. Does initialization 
on first pass, anci then causes cycling for the specified cycle count, 
which defaults to approximately 60 minutes . At 
that point a brantdi to a system shutdown routine is performed. 



Do first pass initialization 



0C39 0001 OOFC C191 

6756 

207C OOFC C191 

227C OOFC CIFF 

4210 
5488 
B3C8 
66F8 

7001 

13C0 OOFC C191 

13FC 003C OOFC C1C3 

42B8 OIBA 

4278 OIBE 



702C 

6100 E6E2 

651E 

4281 

7408 

6100 01E8 

6514 

223C 1000 0000 

7408 

6100 OlDA 

6506 

7025 

6100 E6C2 

6500 OIBO 



CHKPASS CMP.B #$01,INITFLG 

BEQ . S CHKTIM 

CHKPAS2 MOVEA.L #INITFLG,A0 

MOVEA.L #ENDPM,A1 

CLRPM CLR.B (AO) 

ADDQ.L #2,A0 

CMPA.L A0,A1 

BNE.S CLRPM 

MOVEQ #1,D0 

MOVE.B DO,INITFLG 

MOVE.B #60,CYCLVAL 

CLR.L CLKDATA 

CLR CLKDATA+4 



; first pass done? 

;skip if yes 

;set ptr for other data areas 

;and ending ptr 

;do clear 
;buirp ptr 
;loop until done 



;set init flag 

;set cycling for 60 minutes 

;and init clocJc data area 



Sends 



Set clock to initial value so run can be ended at cycle count, 
value of day=01, all other values=0 (e.g., time = 00:00:00) . 

;set up clock set card 
;and send to COPS 
;exit if error 
;set up value for clock 
;set "char" count 
;and go do it 

;set up next value for clock 
;set "char" count 
;and go do it 

; finally set up clocJc enable amd 
;and send it 
@9 BCS SETERRl ;exit if error 



; Check to see if cycle count to be tdianged and if time data needs to be saved 
CHKTIM 



MOVE 


-Q 


#$2C,D0 


BSR 




COPSCMD 


BCS. 


S 


@9 


MOVE 
MOVE 


■ .L 


#SET1,D1 
#8,D2 


BSR 




TODSET 


BCS. 


S 


@9 


MOVE 
MOVE 


■ .L 


#SET2,D1 
#8,D2 


BSR 




TODSET 


BCS. 
MOVE 


S 


@9 
#$25, DO 


BSR 




COPSCMD 


BCS 




SETERRl 



RMOOO 



RMOOO 



RMOOO 
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229AI 
229AI 
229EI 
229EI 
229EI 
22A4I 
22A6I 
22ACI 
22B0I 
22B2I 
22B4I 
22B6I 
22B8I 
22BEI 
22BEI 
22C6I 
22C8I 
22C8I 
22CCI 
22CEI 
22D0I 
22D6I 
22DCI 
22E2I 
22EAI 
22EAI 
22EAI 
22EAI 
22F2I 
22F6I 
22F6I 
22FCI 
23001 
23041 
23061 
23061 
230AI 
230EI 
23141 
231AI 
231EI 
23201 
23221 
23241 
23241 
23261 
23281 



6100 0EC8 



0838 0002 02A2 

6718 

1039 OOFC C1C3 

OCOO 003C 

6604 

7003 

6002 

703C @1 

13C0 OOFC C1C3 @2 

0C39 0001 OOFC C199 @3 
6722 

2038 OIBC 

E998 

4840 

13C0 OOFC C19B 

4239 OOFC C1C5 

4239 OOFC ClCl 

13FC 0001 OOFC C199 



.IF USERINT = 1 
BSR MAKEPCALRT 
.ENDC 



; setup powercycle alert box 



BTST #MSBUTN,STATFLGS 

BEQ.S @3 

MOVE.B CYCLVAL,DO 

CMP.B #60, DO 

BNE.S @1 

MOVEQ #3, DO 

BRA.S @2 

MOVEQ #60, DO 

MOVE.B DO,CYCLVAL ; 

CMP.B #$01,TIMFLG 

BEQ . S TWGCHK 



MOVE.L HOUR, DO 

ROL.L #4, DO 

SWAP DO 

MOVE.B DO,MINSAV 

CLR.B MINCNT 

CLR.B CYCLCNT 

MOVE.B #$01,TIMFLG 



;mouse button detected? 
;skip if no 
;read current setting 
;long cycle set? 

;set for 3 minute cycle 

;set for 60 minute cycle 
;save in PM 

;time data saved? 
;skip if yes 

;get minutes 



save minutes 

and clear minute count 

and cycle count 
and set flag 



RMOOO 
RMOOO 
RMOOO 

RMOOO 

RMOOO 
RMOOO 

RMOOO 



0C39 0002 OOFC C1C5 
6600 0082 

4239 OOFC C1C5 
47FA lAEB 
6100 13F4 
7C0C 

47FA EE7E 
21CB 0008 
207C OOFC COOl 
267C OOFC DD81 
4A38 02AF 
6704 
7850 
6012 

4281 @1 

782D 



Check if time for Twiggy test (do every two minutes) 

; check minute counter 



TWGCHK CMP . B #2 , MINCNT 
BNE WRTMSG 



CLR.B 


MINCNT 


LEA 


TWCa«lSG,A3 


BSR 


DSPMSGR 


MOVEQ 


#PCC0L,D6 


LEA 


DSKVCT,A3 


MOVE.L 


A3,BUSVCTR 


MOVE.L 


#DISKMEM,AO 


MOVE.L 


#VIA1BASE,A3 


TST.B 


SYSTYPE 


BEQ.S 


@1 


MOVEQ 


#80, D4 


BRA.S 


@2 


CLR.L 


Dl 


MOVEQ 


#45, D4 



; clear counter 
;get msg ptr 
;and display it 
; reset left margin 

;set up bus error vector 

;set ptr to shared memory 

; check system type 

; skip if Lisa 1 . 

;else set track count for SONY drive 

;and go test single drive 



CHG009 
CHG009 
CHG009 
CHG009 



;else set for drive 1, track 
;set count (# of tracks) 



to start 
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2328 








2328 








2328 


6100 


FB48 




232C 


6516 






232E 


6100 


014E 




2332 


6510 






2334 


782D 






2336 








2336 


4281 






2338 


123C 


0008 




233C 


E899 






233E 


6100 


013E 




2342 


6420 






2344 








2344 


47FA 


lACA 




2348 


6100 


13AC 




234C 


7C0C 






234E 


OCOO 


0027 




2352 


6700 


OlOA 




2356 


5239 


OOFC 


C19F 


235C 


6406 






235E 


5239 


OOFC 


C19D 


2364 








2364 








2364 








2364 


6100 


OlAA 




2368 


117C 


0088 


0002 


236E 


lOBC 


0087 




2372 


6100 


FA90 




2376 








2376 








2376 








2376 


47FA 


1A56 




237A 


6100 


1384 




237E 


1039 


OOFC 


C1C3 


2384 


6100 


F2AA 




2388 


7C0C 






238A 








238A 


5239 


OOFC 


C197 


2390 


6406 






2392 


5239 


OOFC 


C195 


2398 








2398 


6100 


0130 




239C 








239C 








239C 








239C 


2038 


OIBC 





Now do the drive test, one drive at a time 



BSR CLRFDIR 

BCS . S TSTERR 

BSR TWGTST 

BCS . S TSTERR 

MOVEQ #45, D4 



@2 



TSTERR 



CLR.L 


Dl 


MOVE.B 


#$08, Dl 


ROR.L 


#4,D1 


BSR 


TWGTST 


BCC.S 


DISINT 


LEA 


TWGFAIL,A3 


BSR 


DSFMSGR 


MOVEQ 


#PCC0L,D6 


CMP.B 


#TIMOUT,D0 


BEQ 


CMDERR 


ADDQ.B 


#1,DSKCNTL 


BCC.S 


DISINT 


ADDQ.B 


#1,DSKCNTH 



; first clear interrupts 
;exit if error 
;go do test 

; reset track count 

;set for drive 2 



;and do test again 
;and continue if OK 

; display error msg 

; reset left margin 

; timeout error? 

;exit testing if yes 

;else bvnep low error count 

;skip if no overflow 

;else hvaap high counter also 



CHG009 
CHG009 



Disable interrupt so disks can be ejected 



DISINT BSR TWGDSP 

MOVE.B #$88,CMD(A0) 

MOVE . B #DSABLINT , ( AO ) 

BSR CMDCHK 



; display Twiggy error count 
;set ptr for both drives 
;send disable cmd 
;wait until done 



; Output initial message 

HRTMSG LEA BRNMSG,A3 

BSR DSFMSG 

MOVE.B CYCLVAL,DO 

BSR DSPDEC 

MOVEQ #PCC0L,D6 
; Increment loop count and 

CNTINC ADDQ.B #1,LCNTL0 

BCC . S DSPTIM 

ADDQ.B #1,LCNTHI 



;get msg ptr 
;and display it 
;get cycling value 
; display as decimal 
;set col for window limits 
display it on screen 
;inc low byte 
;skip if no carry 
;else inc high byte also 



DSPTIM BSR DSPCLK ;go display time 

; Now check time to see if update needed 

MOVE.L HOUR, DO ;get minute value 
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23A0 


E998 






23A2 


4840 






23A4 


B039 


OOFC 


C19B 


23AA 


6712 






23AC 


5239 


OOFC 


C1C5 


23B2 


5239 


OOFC 


ClCl 


23B8 


13C0 


OOFC 


C19B 


23BE 








23BE 








23BE 








23BE 


6100 


E714 




23C2 








23C2 








23C2 


1039 


OOFC 


ClCl 


23C8 


1239 


OOFC 


C1C3 


23CE 


BOOl 






23D0 


6C16 






23D2 








23D2 








23D2 








23D2 








23D2 


103C 


OOOF 




23D6 


6100 


F476 




23DA 


6100 


FC14 




23DE 


6604 






23E0 


6100 


FD48 




23E4 


6000 


02 6C 




23E8 








23E8 








23E8 








23E8 


4239 


OOFC 


C199 


23EE 


2038 


OIBC 




23F2 


227C 


OOFC 


ClAl 


23F8 


01C9 


0000 




23FC 








23FC 








23FC 








23FC 








23FC 


207C 


OOFC 


COOl 


2402 


lOBC 


0089 




2406 


6100 


F9FC 




240A 


6552 






240C 








240C 


702D 






240E 


6100 


E546 




2412 


6538 






2414 









ROL.L 


#4, DO 




SWAP 


DO 




CMP.B 


MINSAV,DO 


;has value changed? 


BEQ.S 


NOCHG 


;skip if not 


ADDQ.B 


#1,MINCNT 


;else bimp minute count 


ADDQ.B 


#1,CYCLCNT 


;and cycle count 


MOVE.B 


DO,MINSAV 


;save new minute value 



; Delay so screen can be read 

NCXIHG BSR DELAY5 ; delay for 5 sees 
; Check to see if run should be ended 



MOVE.B CYCLCNT,DO 

MOVE.B CYCLVAL,D1 

CMP.B D1,D0 

BGE . S SHUTDOWN 



;get cycle count 

;get desired cycle value 

; cycle if same or greater 



If not, cause double bus fault to restart diagnostics 
First make parameter memory valid 



@1 



MOVE.B #PC,DO 

BSR SAV2PM 

BSR PROINIT 

BNE.S @1 

BSR WFNBSY2 

BRA DORESET 



;set power-cycle boot code 

;and go set param mem 

; check for attached hard disk 

;skip if none 

;else wait until disk ready 

;then go cause a system reset 



CHG019 
CHG019 
CHG019 



; Do soft power-off for specified cycle period 
SHUTDOWN 

CLR.B TIMFLG ; reset time save indicator 

MOVE.L CLKDATA+2,D0 ;and save clock data 

MOVE . L #CLKSAVE , Al 

MOVEP.L DO, (Al) 

; Disable Twiggy controller to avoid any RAM problems 



DSCONT 



MOVE.L 
MOVE.B 
BSR 
BCS.S 



#DISKMEM,AO 
#DIE,(AO) 
CMDCHK 
CMDERR 



MOVEQ #$2D,D0 
BSR COPSCMD 
BCS . S SETERR2 



;set ptr to shared memory 
;and send "die" cmd 
;wait until done 
;exit if error 

; enable alarm setting 
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2414 


4281 




2416 


1239 


OOFC C1C3 


241C 


703C 




241E 


C2C0 




2420 


700C 




2422 


E1B9 




2424 






2424 


227C 


OOFC ClBl 


242A 


03C9 


0000 


242E 


7405 




2430 


6134 




2432 


6518 




2434 






2434 






2434 


103C 


OOOF 


2438 


6100 


F414 


243C 






243C 


7023 




243E 


6100 


E516 


2442 


6508 




2444 


4E71 




2446 


60FC 




2448 






2448 


703D 




244A 


6002 




244C 






244C 


703E 




244E 






244E 






244E 






244E 






244E 


45FA 


14FB 


2452 


6100 


1086 


2456 






2456 






2456 


6100 


FICA 


245A 


6000 


0140 


245E 






245E 






245E 






245E 


08C7 


0011 


2462 


6000 


EF36 


2466 






2466 






2466 






2466 






2466 







CLR.L Dl 

MOVE.B CYCLVAL,D1 

MOVEQ #60, DO 

MULU D0,D1 

MOVEQ #12, DO 

ROL.L D0,D1 

MOVE.L #ALRMSAV,A1 
MOVEP.L Dl, (Al) 
MOVEQ #5,D2 
BSR.S TODSET 
BCS . S SETERR2 

Make parameter memory valid 

MOVE.B #PC,DO 

BSR SAV2PM 
And finally send power-off cand 



;get desired shutdown time 
; multiply by 60 for seconds 

; rotate to send as alarm value 



;save alarm value 

;5 digits for alarm value 



;set power-cycle boot code 
;and go set param mem 



MOVEQ #$23, DO 

BSR COPSCMD 

BCS . S SETERR2 
SELF NOP 

BRA.S SELF 

SETERRl MOVEQ #SERR1,D0 

BRA.S DSPERR 



;set up enable/power off cmd 
;send it 



; goodbye . . . 



;set error code 
;and go display 

;set error code 



;set icon ptr 
; display it 



;and exit to monitor 
Error routine if disk cmd not taken 



SETERR2 MOVEQ 


#SERR2,D0 


DSPERR 

.IF USERINT = 


.ELSE 




LEA 


I0BRD,A2 


BSR 


DSPERRICON 


.ENDC 




BSR 


DSPCODE 


BRA 


MONITOR 



CMDERR BSET 
BRA 

.PAGE 



#DISK,D7 
TSTCHK 



;set error bit 
;and exit 



Subroutine to send clock data. Assumes registers: 
DO = scratch use 
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2466 






2466 






2466 






2466 






2466 


E999 




2468 


1001 




246A 


0200 


GOOF 


246E 


0000 


0010 


2472 


6100 


E4E2 


2476 


6504 




2478 


5342 




247A 


66EA 




247C 


4E75 




247E 






247E 






247E 






247E 






247E 






247E 






247E 






247E 






247E 






247E 






247E 






247E 






247E 


117C 


0088 0002 


2484 


lOBC 


0086 


2488 


6100 


F97A 


248C 


6536 




248E 


08AB 


0004 0004 


2494 


243C 


OOCO 0000 


249A 






249A 


03C8 


0004 


249E 


4228 


0002 


24A2 


lOBC 


0081 


24A6 


6100 


F996 


24AA 


6516 




24AC 


1028 


0010 


24B0 


6100 


F9C0 


24B4 


650C 




24B6 


4A00 




24B8 


660A 




24BA 


5241 




24BC 


5344 




24BE 


66DA 




24C0 


4E75 




24C2 







Dl = clock data 
D2 = digit coimt 



TODSET 



SETXIT 



ROL.L 


#4,D1 


;get digit 


MOVE.B 


D1,D0 


;set up for COPS as IX 


ANDI.B 


#$0F,D0 


; where X = digit for clock 


ORI.B 


#$10, DO 




BSR 


COPSCMD 


;and send it 


BCS.S 


SETXIT 


;exit if error 


SOBQ 


#1,D2 


;decr count 


BNE.S 


TODSET 


;and loop until done 


RTS 







.PAGE 



Subroutine to do Twiggy testing 

Expects 

DO = scratch use 

Dl = drive parameters 

D2 = FDIR timeout value 

D3 = unused 

D4 = loop count for reads 



AO = shared memory address 

Al = unused 

A2 = unused 

A3 = VIA address for EDIR access 



TWGTST MOVE.B #$88,CMD(A0) 

MOVE . B #ENBLINT , ( AO ) 

BSR CMDCHK 

BCS . S TERR 

BCLR #FDIR,DDRB1(A3) 

MOVE . L #FDIRTIME , D2 

TWGLOOP MOVEP.L D1,DRV(A0) 

MOVE.B #READS,CMD(AO) 

MOVE.B #EXRW, (AO) 

BSR CHKFIN 

BCS . S TOOLONG 

MOVE . B STAT (AO ) , DO 

BSR CLRFDIR 

BCS . S TOOLONG 

TST.B DO 

BNE . S TERR 

ADDQ #1,D1 

SUBQ #1,D4 

BNE . S TWGLOOP 

RTS 



; enable interrupts from both drives 

;do it 

;wait until done 

;exit if error 

; enable FDIR bit 

;set timeout value for BDIR 

set disk ptrs 

set for read operation 

and go do it 

wait 

exit if timeout 

get disk return code 

clear interrupt indicator 

;any error? 
; and exit if error 
;incr track ptr 
; decrement count 
;loop until done 
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24C2 


7027 




24C4 


003C 


0001 


24C8 






24C8 


4E75 




24CA 






24CA 






24CA 






24CA 






24CA 






24CA 


47FA 


1914 


24CE 


6100 


1230 


24D2 


5246 




24D4 


6100 


EDCA 


24D8 


2038 


OIBC 


24DC 


227C 


OOFC ClAl 


24E2 


01C9 


0000 


24E6 






24E6 


E998 




24E8 


7201 




24EA 


6100 


F18C 


24EE 


5246 




24F0 






24F0 


E198 




24F2 


7202 




24F4 


6100 


F182 


24F8 


5246 




24FA 






24FA 


E198 




24FC 


7202 




24FE 


6100 


F178 


2502 


5246 




2504 






2504 


E198 




2506 


7202 




2508 


6100 


F164 


250C 






250C 






250C 


7C0C 




250E 






250E 






250E 


4E75 




2510 






2510 






2510 






2510 






2510 






2510 







TCX)LONG MOVEQ 
TERR ORI.B 

RTS 



#TIMOOT,D0 
#$01,CCR 



;set error code 
;set indicator 

;and exit 



Subroutine to display clock reading as D HH MM SS 



DSPCLK 



LEA 


TIMMSG,A3 


;get msg ptr 


BSR 


DSFMSG 


;and display it 


ADDQ 


#1,D6 


;add extra space 


BSR 


READCLK 


;go read clock 


MOVE.L 


CLKDATA+2,D0 


;get time (minus Ey/dd digits) 


MOVE.L 


#CLKSAVE,A1 


;and save it 


MOVER. L 


D0,(A1) 




ROL.L 


#4, DO 


;get day value 


MOVEQ 


#1,D1 


;set # of digits to display 


BSR 


DUTCH 


;and display it 


ADDQ 


#1,D6 


;bump col ptr 


ROL.L 


#8, DO 


;get hour 


MOVEQ 


#2,D1 


;and display 


BSR 


DUTCH 




ADDQ 


#1,D6 




ROL.L 


#8, DO 


; display minute 


MOVEQ 


#2,D1 




BSR 


DUTCH 




ADDQ 


#1,D6 




ROL.L 


#8, DO 


; display seconds 


MOVEQ 


#2,D1 




BSR 


DUTCHR 




.IF USERINT = 1 




MOVEQ 


#PCC0L,D6 


;set col for window 


.ENDC 







RTS 



.PAGE 



Subroutine to display Twiggy error count 
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2510 






2510 


48E7 


COlO 


2514 


47FA 


190D 


2518 


6100 


11E6 


251C 


267C 


OOFC C19D 


2522 


OlOB 


0000 


2526 


7204 




2528 


6100 


F144 


252C 






252C 






252C 


7C0C 




252E 






252E 






252E 


4CDF 


0803 


2532 


4E75 




2534 






2534 






2534 






2534 






2534 






2534 






2534 






2534 






2534 






2534 






2534 






2534 






2534 






2534 






2534 






2534 






2534 






2534 






2534 


6100 


DB04 


2538 


4287 




253A 


4238 


02A2 


253E 


08F8 


0001 02A2 


2544 






2544 






2544 


48E7 


8030 


2548 


6100 


F7FC 


254C 


6100 


E55C 


2550 


6100 


E572 


2554 


6100 


0A76 


2558 


4CDF 


OCOl 


255C 






255C 







TWGDSP MOVEM.L D0-D1/A3,- (SP) ;save regs 

; output msg 



LEA TWGRSLT,A3 

BSR DSFMSG 

MOVE . L #DSKCNTH , A3 

MOVEP (A3) ,D0 

MOVEQ #4,D1 

BSR OUTCHR 

.IF USERINT = 1 
MOVEQ #PCC0L,D6 
.ENDC 

MOVEM.L (SP)+,D0-D1/A3 
RTS 

.ENDC 

.PAGE 

.IF USERINT = 

.ENDC 



.INCLUDE RM248.M.TEXT 
.PAGE 



;set ptr to error count 

;get count 

;# of digits to display 



;set col for window 



; restore and exit 



Monitor code - first displays requested icons, error codes or messages, 
and then outputs menu of options to user and awaits input 



INITMON 



.IF R0M4K = 

BSR SAVEREGS 

CLR.L D7 

CLR.B STATFLGS 

BSET #NOCONT , STATFLGS 



; entry point for displays 

;save registers 

; reset reg for error indicators 

; and status flags 

;set external entry indicator 



INITl 



MOVEM.L D0/A2-A3,-(SP) 
BSR DSABLDSK 
BSR RSTKBD 
BSR CLRRST 
BSR Cursorlnit 
MOVEM.L (SP)+,D0/A2-A3 



INIT2 



;save incoming arguments 

; disable ints from both drives 

; reset keyboard 

;and clear reset 

;init cursor and mouse 

; restore arguments 

; internal entry point 
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255C 






255C 


3E7C 


0480 


2560 






2560 






2560 






2560 


48E7 


8030 


2564 






2564 






2564 






2564 


6100 


E320 


2568 






2568 






2568 






2568 


6100 


0B6C 


256C 


6100 


OBFA 


2570 






2570 


4CDF 


0401 


2574 






2574 


220A 




2576 


6704 




2578 


6100 


0FB2 


257C 






257C 


4A40 




257E 


6712 




2580 


220A 




2582 


660A 




2584 


7A7E 




2586 


7C12 




2588 


6100 


F0A6 


258C 


6004 




258E 






258E 


6100 


F092 


2592 






2592 


265F 




2594 






2594 






2594 


200B 




2596 


6704 




2598 






2598 






2598 






2598 


6100 


1140 


259C 






259C 






259C 






259C 






259C 


007C 


0700 



.IF DEBUG = 
MOVEA #STKBASE,SP 
.ENDC 

.IF USERINT = 1 
MOVEM.L D0/A2-A3,-(SP) 
.ENDC 
.ENDC 



BSR 



SETVLTCH 



.IF USERINT = 

.ELSE 

BSR DRAWDESK 
BSR MAKEALERT 

INIT3 MOVEM.L (SP)+,D0/A2 

MOVE.L A2,D1 

BEQ.S @0 

BSR DSPALRTICON 



; reset stack pointer RMOOO 

;save incoming arguments 

; {RCM4K} 

;set video latch 



; display the desktop 

;draw alert box (in case no icon display) 

; restore argimients 



;icon display? 

;skip if no 

;go do icon display 



@0 


TST 


DO 


; error code display? 




BEQ.S 


@2 


;skip if no 




MOVE.L 


A2,D1 


;icon displayed? 




BNE.S 


@1 


;skip if yes 




MOVEQ 


#MSGR0W,D5 


;else display error code on same line 




MOVEQ 


#C0DEC0L,D6 


; as error msg 




BSR 


DSPDEC 


; display as decimal # 




BRA.S 


@2 




@1 


BSR 


DSPCODE 


; output error code vmder icon 


@2 


MOVE.L 
.ENDC 


(SP)+,A3 


; restore msg ptr 



MOVE.L A3, DO 
BEQ . S MONITOR 

.IF USERINT = 
.ELSE 

BSR DSPALRTMSG 
.ENDC 



MONITOR 



.IF R0M4K = 
ORI #$0700, SR 



; message display? 

;go display message in alert box 

; entry point for no screen setup 
; disable all interrupts 



Computer Boot ROM 2.48 Listing • 163 of 265 



25A0 


6100 


ElOA 




25A4 








25A4 








25A4 








25A4 








25A4 








25A4 








25A4 








25A4 








25A4 








25A4 








25A4 








25A4 








25A4 


4278 


053A 




25A8 


0238 


OOOF 


02A2 


25AE 


08F8 


0006 


02A2 


25B4 








25B4 


0838 


0001 


02A2 


25BA 


6630 






25BC 


2038 


0180 




25C0 


0280 


OOIE 


3FFA 


25C6 


661E 






25C8 


4A78 


0188 




25CC 


6618 






25CE 








25CE 


327C 


2956 




25D2 


103C 


OOFl 




25D6 


47FA 


18A0 




25DA 


347C 


2CE8 




25DE 


4281 






25E0 


6100 


0C98 




25E4 


6006 






25E6 


08F8 


0001 


02A2 


25EC 








25EC 








25EC 








25EC 








25EC 








25EC 








25EC 








25EC 


0838 


0000 


02A2 


25F2 


6616 






25F4 


327C 


1876 




25F8 


103C 


00F4 




25FC 


47FA 


185A 




2600 


347C 


1C08 




2604 


4281 







BSR 

.ELSE 

.ENDC 



SETVCTRS 



;set vectors for ROM space 



CHG028 



.IF R0M4K = 



Now output first level menu, prompt line and cursor. Do preliminary 
check to see if CONTINUE option can be displayed. This is the Customer 
mode level of the monitor code. 



LEVELl 



.IF USERINT = 1 
CLR RECTCNT 
ANDI.B #$0F,STATFLGS 
BSET #BTN , STATFLGS 



; clear active rectangle count 

;init flags 

;set operating with buttons flag 



@1 



BTST #NOCONT , STATFLGS ; display continue? 

;skip if no 
;get test status 
;mask don't cares 

;skip if error that disallows continuing 
; check boot memory area for R/W errors 
;skip if any errors 

; display CONTINUE button 

;with alternate keycode 

;and description 

;and location 

; don't append ' . . . ' string 

;and go make other buttons 
BSET #NOCONT , STATFLGS ;set indicator for no CONTINUE option 



BNE.S 


OTHRBTNS 


MOVE.L 


STATUS, DO 


ANDI.L 


#CONTMSK,D0 


BNE.S 


@1 


TST 


BOOTMEM 


BNE.S 


@1 


MOVE 


#BTN2STRT,A1 


MOVE.B 


#KEY2,D0 


LEA 


C0NTMSG,A3 


MOVEA 


#BTN2MSG,A2 


CLR.L 


Dl 


BSR 


MAKEBUTN 


BRA.S 


OTHRBTNS 



RMOOO 



OTHRBTNS 



.ENDC 



.IF USERINT = 


.ELSE 




BTST 


#NORSTRT,STA 


BNE.S 


@1 


MOVE 


#BTN1STRT,A1 


MOVE.B 


#KEY1,D0 


LEA 


RTRYMSG,A3 


MOVEA 


#BTN1MSG,A2 


CLR.L 


Dl 



;skip if not 
;else do display 



; don't append 



RMOOO 



string 
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2606 


6100 


0C72 


260A 






260A 


327C 


3A36 


260E 


303C 


00F2 


2612 


47FA 


1884 


2616 


347C 


3DC8 


261A 


72FF 




261C 


6100 


0C5C 


2620 






2620 






2620 






2620 


6100 


09EC 


2624 


08F8 


0005 02A2 


262A 






262A 


6100 


061A 


262E 


6500 


00B6 


2632 


6100 


09B6 


2636 






2636 






2636 






2636 






2636 






2636 






2636 


OCOO 


00F2 


263A 


6608 




263C 






263C 






263C 






263C 


6100 


0A9C 


2640 


6000 


F2B6 


2644 






2644 






2644 


0838 


0000 02A2 


264A 


6612 




264C 


OCOO 


00F4 


2650 


660C 




2652 






2652 






2652 


4287 




2654 


4A39 


OOFC EOlO 


265A 


6000 


DB2E 


265E 






265E 






265E 






265E 


0838 


0001 02A2 


2664 


666C 




2666 


OCOO 


OOFl 



@1 



BSR 


MAKEBOTN 


MOVE 


#BTN3STRT,A1 


MOVE 


#KEY3,D0 


LEA 


STRTMSG,A3 


MOVEA 


#BTN3MSG,A2 


MOVEQ 


#-l,Dl 


BSR 


MAKEBUTN 



; display STARTUP button 



; append ' . . . ' string 



RMOOO 



; MOVE.L #KBDBFR,KBDQPTR ;init queue ptr 

BSR CursorDisplay ; display mouse cursor 

BSET #CHKCMD , STATFLGS /require user keyboard input to be prefaced 

; by the CMD key 
GETLl BSR GETINPUT ;and go wait for input 
BCS GETERR ;exit if error 

BSR CursorHide ; remove cursor from screen 

.ENDC 



Check if input valid. If invalid, beep speaker. 

CMP.B #KEY3,D0 ; alternate boot? 
BNE.S @2 



.IF USERINT = 
.ELSE 

BSR CLRDESK 
BRA BOOTMENU 
.ENDC 



; close the alert box 
;and go display boot menu 



@2 BTST #NORSTRT, STATFLGS ;RESTART button displayed? 

BNE.S CONTCHK ;skip if not 

CMP.B #KEY1,D0 ; retry? 

BNE.S CONTCHK ;skip if not 



DORESET 



CLR.L D7 
TST.B SETUPON 
BRA BEGIN3 



; clear error reg 
;turn on setup bit 
;and restart diags 



RMOOO 
RMOOO 
RMOOO 



CONTCHK 



.IF USERINT = 1 

BTST #NOCONT , STATFLGS ; continue option displayed? 

BNE.S @4 ;skip if not 

CMP.B #KEY2,D0 ; continue option selected? 
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266A 


6666 




266C 






266C 






266C 






266C 


6100 


0A6C 


2670 


0287 


7000 0000 


2676 


2038 


0180 


267A 


0800 


0000 


267E 


6600 


ElOO 


2682 






2682 


0280 


008F k'kYk- 


2688 


6700 


F05C 


268C 


2F00 




268E 


6100 


OAFO 


2692 






2692 






2692 


103C 


0070 


2696 


6100 


E2BE 


269A 


201F 




269C 






269C 


0800 


0002 


26A0 


670C 




26A2 


327C 


1DF6 


26A6 


6100 


OECC 


26AA 


6000 


E6B0 


26AE 






26AE 


EE88 




26B0 


4A00 




26B2 


6600 


EC3A 


26B6 






26B6 


E488 




26B8 


4A00 




26BA 


670C 




26BC 


327C 


1E12 


26C0 


6100 


0EB2 


26C4 


6000 


EA46 


26C8 






26C8 


4A39 


OOFC EOIE 


26CE 


6000 


E930 


26D2 






26D2 






26D2 






26D2 






26D2 






26D2 






26D2 


OCOO 


00F6 


26D6 


6700 


0064 



BNE.S @4 
continue from point of failure 



@1 



@2 



@4 



BSR CLRDESK 

ANDI . L #ALTBMSK,D7 

MOVE.L STATUS, DO 

BTST #MMU,DO 

BNE VIA2TST 

ANDI.L #BCX)TMSK,DO 

BEQ BCWTCHK 

MOVE.L DO,-(SP) 

BSR MAKETEST 



; clear desktop CHGOOS 

; erase error indicators 

;get power-up status 

;MMU error? 

;yes - continue from VTA tests 

; check if error that continues to boot attenpt 
;skip if yes 
;else save status 
;make test window 



do init for continue to other tests 



MOVE.B 


#$70, DO 


BSR 


COPSCMD 


MOVE.L 


(SP)+,DO 


BTST 


#VID,DO 


BEQ.S 


@1 


MOVEA 


#CPUSTRT,A1 


BSR 


INVICON 


BRA 


PARTST 


LSR.L 


#7, DO 


TST.B 


DO 


BNE 


CONFIG 


LSR.L 


#2, DO 


TST.B 


DO 


BEQ.S 


@2 


MOVEA 


#I0STRT,A1 


BSR 


INVICON 


BRA 


DSKTST 


TST.B 


PARON 


BRA 


lOTST 



.ENDC 

.IF USERINT = 
.ENDC 

CMP.B #SKEY,DO 
BEQ LEVEL2 



;turn off mouse 

; restore status 

; serial # error? 

;skip if not 

; display CPU icon 

; continue with parity test 

;skip other CPU errors 

; clock error? 

;yes - continue with config check 



;RS232 error? 

;skip if not 

;else display I/O board icon 

;cont with disk test 

;must be memory error - reenable parity 
; and continue with I/O board testing 



; service mode desired? 
; skip if yes 
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26DAI 
26DAI 
26DAI 
26DAI 
26DAI 
26DEI 
26DEI 
26DEI 
26DEI 
26E2I 
26E6I 
26E6I 
26E6I 
26E6I 
26E6I 
26EAI 
26ECI 
26F0I 
26F0I 
26F0I 
26F0I 
26F0I 
26F0I 
26F0I 
26F0I 
26F0I 
26F0I 
26F2I 
26F2I 
26F6I 
26FAI 
26FCI 
27001 
27021 
27021 
27021 
27021 
27021 
27021 
27021 
27021 
27021 
27021 
27021 
27021 
27021 
27061 



Indicate invalid by beeping speaker 



GETLIXIT 



6100 0030 



6100 092E 
6000 FF46 



45FA 1263 
97CB 
6000 FE6E 



BSR SQUAWK 
.IF USERINT = 
.ELSE 



; sorry charlie 



LEVILCXJP 

BSR CursorDisplay ; redisplay cursor 
BRA.S GETLl ;go get more input 

; Error exit - go output error and return to level 1 

GETERR 



LEA 


I0BRD,A2 


;get I/O board icon 


SUBA.L 


A3,A3 


;no error message 


BRA 


INIT2 




.ENDC 






.ENDC 




; {RCM4K} 


.PAGE 







Subroutine to clear video page of memory or write arbitrary long word 
pattern to entire screen (WRTSCRN entry point) . 



4280 

2078 Olio 
323C IFFD 
20C0 

51C9 FFFC 
4E75 



CLRSCRN CLR.L DO 
WRTSCRN 

MOVE.L SCRNBASE,AO 

MOVE #HEX8K-3,D1 

@1 MOVE.L DO,(AO)+ 

DBF Dl,@l 

RTS 

.IF R0M4K = 

.IF USERINT = 

.ENDC 

.PAGE 

.IF USERINT = 

.ELSE 



; write ' s for white screen 

; entry pt for write to screen (assumes DO set) 

; get screen base address 

; set longs count 

; clear for video page 



Subroutine to read keycode from COPS - returns down transitions in DO 



6100 0634 
4A00 



ReadKey 



BSR WT4 INPUT 
TST.B DO 



; ignore "up" transitions and mouse data 
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27081 
270AI 
270CI 
270CI 
270CI 
270CI 
270CI 
270CI 
270CI 
270CI 
270EI 
27121 
27141 
27181 
271AI 
271AI 
271AI 
271AI 
271AI 
271AI 
271AI 
271AI 
271AI 
271EI 
27221 
27241 
27281 
272CI 
272EI 
27301 
27321 
27361 
273AI 
273CI 
273CI 
273CI 
273CI 
273CI 
273CI 
273CI 
273CI 
273CI 
273CI 
273CI 
27401 
27401 
27401 



6AF8 
4E75 



BPL.S 
RTS 

.ENDC 



ReadKey 



;exit with data 



Subroutine to beep speaker for invalid input 



7020 

323C OOFA 
7404 

6100 E3E0 
4E75 



SQUAWK 



MOVEQ 


#$20, DO 


MOVE 


#250, Dl 


MOVEQ 


#4,D2 


BSR 


TONE 


RTS 





set frequency 
1/8 sec duration 
low voliame 
and go do it 



Subroutine to convert keycodes to Ascii 

Inputs : DO = keycode (word) 

Outputs : DO = Ascii (byte) or =2 if input invalid 



48E7 4080 
41FA 119C 
3200 

0241 007F 
0441 0020 
6A04 
7002 
6004 

1030 1000 
4CDF 0102 
4E75 



KeyToAs 


Cll 








MOVEM.L 


D1/A0,-(SP) 


;save regs 




LEA 


AsciiTable , AO 


; keycode to ascii table 




MOVE 


D0,D1 


; keycode to convert 




ANDI 


#$007F,D1 


; ensure valid 




SUBI 


#32, Dl 


; decrement for table 




BPL.S 


@1 


;skip if valid 




MOVEQ 


#2, DO 


;else set for invalid char 




BRA.S 


@2 


; 


@1 


MOVE.B 


0(A0,D1.W) ,D0 


;get ascii 


@2 


MOVEM.L 


(SP)+,D1/A0 


; restore 




RTS 




;exit 



RMOOO 
RMOOO 
RMOOO 
RMOOO 



.PAGE 



Monitor level 2 (Service mode) - enables access to memory and disk 



LEVEL2 



6100 099C 



.IF USERINT = 
.ELSE 
BSR CLRDESK 

.IF BMENU = 
.ENDC 



; display the desktop 
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27401 
27401 
27401 
27401 
27441 
27481 
27481 
27481 
27481 
274CI 
274CI 
274CI 
274CI 
274CI 
274CI 
274CI 
274CI 
274CI 
274CI 
274CI 
27501 
27521 
27561 
27561 
27561 
27561 
27561 
27561 
27561 
27561 
27561 
27561 
275AI 
275EI 
27621 
27661 
27661 
276AI 
276EI 
276EI 
276EI 
27721 
27761 
27761 
27761 
277AI 
277EI 



make window for output, and display menu line and pull down menu 



6100 00D2 
6100 005A 



6100 08C4 



6100 04F8 
6594 
6100 0896 



OCOO 00F4 
6700 OODA 
OCOO OOFl 
6700 013E 

OCOO 00F2 
6700 019C 



OCOO 00F3 
6700 OICO 



OCOO 00E4 
6700 0278 



BSR 
DSPMENU BSR 



MAKESVCW 
WRTMENU 



; output service window 



do final initialization and await input 

BSR CursorDisplay ; display cursor 



Program NMI key 



MOVEQ #$5A,D0 

BSR COPSCMD 

MOVEQ #$61, DO 

BSR COPSCMD 



;set / key for NMI 



GETLEV2 



BSR GETINPUT 
BCS GETERR 
BSR CursorHide 



.ENDC 

.IF USERINT = 
.ENDC 

Check for valid input 

CMP.B #KEY1,D0 

BEQ DSPMEM 

CMP.B #KEY2,D0 

BEQ SETMEM 

CMP.B #KEY3,D0 
BEQ CALLRTN 

.IF R0M16K = 1 
CMP.B #KEY4,D0 
BEQ LOOPTST 
.ENDC 

CMP.B #KEY5,D0 
BEQ VIDAJST 



;and go await input 

;exit if error 

;else remove cursor from screen and go 

; analyze input 



display memory? 
set memory? 

call routine 

loop? 

video adjust? 
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277E 






277E 


OCOO 


OOEl 


2782 


6700 


02E8 


2786 






2786 






2786 


OCOO 


00E2 


278A 


6610 




278C 


08B8 


0000 02A2 


2792 


4280 




2794 


95CA 




2796 


97CB 




2798 


6000 


FDC2 


279C 






279C 


6000 


02D6 


27A0 






27A0 






27A0 






27A0 






27A0 






27A0 






27A0 






27A0 






27A0 






27A0 






27A0 


4278 


053A 


27A4 


0238 


OOOF 02A2 


27AA 


7012 




27AC 


7207 




27AE 


C2FC 


OOOB 


27B2 


47FA 


170D 


27B6 


6118 




27B8 






27B8 


7807 




27BA 


327C 


05A2 


27BE 


347C 


0658 


27C2 


47FA 


1705 


27C6 


49FA 


1771 


27CA 


6100 


0B9E 


27CE 






27CE 






27CE 






27CE 


4E75 




27D0 






27D0 






27D0 






27D0 






27D0 







.IF BUPNIN = 1 
CMP.B #KEY6,D0 
BEQ PowerCycle 
.ENDC 

CMP.B #KEY7,D0 



@1 



BNE.S 


@1 


BCLR 


#NORSTRT , STATFLGS 


CLR.L 


DO 


SUBA.L 


A2,A2 


SUBA.L 


A3,A3 


BRA 


INIT2 


BRA 


INVALID 


.PAGE 




.IF USERINT = 1 



power cycle? 



; quit? 

; clear no reset status 
;set paritis for levell - 
;no icon display 
;no message display 
;and go back to levell 

; else invalid input 



flag 
no error code 



Routine to display the preliminary pull-down menu 



WRTMENU 




.IF BMENU = 


.ELSE 




CLR 


RectCnt 


ANDI.B 


#$0F, STATFLGS 


MOVEQ 


#MENUWIDTH,DO 


MOVEQ 


#MITEMS,D1 


MDLU 


#MENULEN,D1 


LEA 


MENUHDG,A3 


BSR.S 


DSPMENUBOX 


MOVEQ 


#MITEMS,D4 


MOVE 


#MENUSTRT,A1 


MOVE 


#MENU1MSG,A2 


LEA 


DISPMSG,A3 


LEA 


MENUID,A4 


BSR 


MAKEMENU 


.ENDC 




RTS 





; clear active rectangle count 

;init flags 

;set menu parms 

;set # of items in menu 

; length depends on # of items 

;set ptr for menu heading 

;go display blank menu box w/ heading 

;set # of items in menu 
;set menu starting point 
;menu items display address 
;set ptr to menu entries 
;ptr to id's for menu entries 
;go fill in the menu 

;{MENU} 



.IF BMENU = 1 



Subroutine to display blank menu box with heading 
Inputs : 
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27D0 






27D0 






27D0 






27D0 






27D0 






27D0 






27D0 






27D0 






27D0 






27D0 






27D0 


48E7 


COOO 


27D4 


08F8 


0007 02A2 


27DA 


6100 


0938 


27DE 


5441 




27E0 


327C 


05A2 


27E4 


6100 


OAOO 


27E8 


327C 


0111 


27EC 


6100 


0C18 


27F0 






27F0 


4281 




27F2 


6100 


0E40 


27F6 


97CA 




27F8 


240B 




27FA 


5442 




27FC 


0202 


OOFE 


2800 


3002 




2802 


720E 




2804 


74FF 




2806 


92FC 


005B 


280A 


6100 


0922 


280E 


4CDF 


0003 


2812 


4E75 




2814 






2814 






2814 






2814 






2814 






2814 






2814 






2814 






2814 


327C 


OEDA 


2818 


7042 




281A 


223C 


0000 0140 


2820 


47FA 


D830 


2824 


6100 


09A0 


2828 


31FC 


003E 0300 


282E 


31FC 


0018 0302 



DO = menu width 
Dl = menu length 
A3 = menu heading 

Outputs : 
None 

Side Effects: 

D2/A1,A3 trashed 



MOVEM.L 


D0-D1,-(SP) 


BSET 


#MENU,STATFLGS 


HSR 


CLRMENU 


ADDQ 


#2,D1 


MOVE 


#MENUSTRT,A1 


BSR 


MAKEBOX 


MOVEA 


#MENUL0C,A1 


BSR 


GETROWCOL 


CLR.L 


Dl 


BSR 


DSPSTRING 


SUBA.L 


A2,A3 


MOVE.L 


A3,D2 


ADDQ 


#2,D2 


ANDI.B 


#$FE,D2 


MOVE 


D2,D0 


MOVEQ 


#14, Dl 


MOVEQ 


#-l,D2 


SOB.W 


#91,A1 


BSR 


INVERSE 


MOVEM.L 


(SP)+,D0-D1 


RTS 





.ENDC 



;save regs 

;set working with menu flag 

; first clear the menu bar 

;bump length for bottom border 

;set menu starting point 

; display the box 

;set up menu heading display point 

; convert to screen ptrs 

; don't display ' . . . ' string 

; display the title 

;get length of menu title 

;move to working reg 

;add extra bytes to cover entire title 

; ensure it's even 

;save as width of menu heading "box" 

;set height for "box" 

;set fill pattern 

; decrement start pt by 1 row + 1 byte 

;go hilite it 

; restore regs 



:{MENU} 



Subroutine to create Service mode window 



MAKESVCW 



MOVE 


A #SVCSTRT,A1 


;left corner point 


MOVE 


Q #SVCWIDTH,DO 


; width of window 


MOVE 


.L #SVCHIGH,D1 


; height 


LEA 


SVCMSG,A3 


; title 


BSR 


MAKEWINDOW 


;go do it 


MOVE 


#FIRSTROW , CRTROW 


;init screen ptrs 


MOVE 


#FIRSTCOL , CRTCOL 





RMOOO 
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2834 


4E75 




2836 






2836 






2836 






2836 






2836 






2836 






2836 






2836 


6100 


036C 


283A 


6500 


0238 


283E 


4A43 




2840 






2840 






2840 






2840 


6700 


0240 


2844 






2844 






2844 


0882 


0000 


2848 


2442 




284A 






284A 






284A 


6100 


034A 


284E 


6506 




2850 


OCOO 


0020 


2854 


6708 




2856 






2856 


47FA 


1774 


285A 


6100 


0236 


285E 






285E 






285E 






285E 


7204 




2860 


6100 


0350 


2864 


6500 


02 OE 


2868 


6100 


02E6 


286C 


4A43 




286E 


6702 




2870 


6002 




2872 






2872 


7410 




2874 






2874 






2874 






2874 


200A 




2876 


7208 




2878 


6100 


EDFE 


287C 







RTS 
.ENDC 



; {USERINT} 



Do display memory operation 



DSPMEM BSR 


GETA 


BCS 


INVALID 


TST 


D3 


.IF USERINT = 


.ELSE 




BEQ 


LEV2L00P 


.ENDC 




BCLR 


#0,D2 


MOVE.L 


D2,A2 


; Check for all input on 


BSR 


GETCH 


BCS.S 


@1 


CMPI.B 


#' ',D0 


BEQ.S 


RDCNT 


@1 LEA 


CNTMSG,A3 


BSR 


PRCaiPT 



;go get address 

;if no input go back to menu line 



; ensure even address 
;and save 

one line 

;read queue to see if more input 
;skip if not 

;must be a space separator 
;skip if yes 

; display count pron5>t 

Decode count input and do display 

;go get count (max of $FFFF) 



;set display ptrs and space 1 line 
;set default count if no input 



MOVEQ 


#4,D1 


BSR 


GETPARM 


BCS 


INVALID 


BSR 


PUTLF 


TST 


D3 


BEQ.S 


@4 


BRA.S 


@5 



@4 MOVEQ #16, D2 

; Do display of memory 

@5 MOVE.L A2,D0 
MOVEQ #8,D1 
BSR DUTCH 



;set default count 



;get display address 
;and display it 
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287C 






287C 






287C 


5846 




287E 






287E 


7808 




2880 


301A 




2882 


7204 




2884 


6100 


EDF2 


2888 


5246 




288A 


5344 




288C 


66F2 




288E 






288E 


5182 




2890 


5182 




2892 


6F06 




2894 


6100 


02BA 


2898 


60DA 




289A 






289A 


6100 


02B4 


289E 






289E 






289E 






289E 


6000 


01E2 


28A2 






28A2 






28A2 






28A2 






28A2 






28A2 






28A2 






28A2 






28A2 


6100 


0300 


28A6 


6500 


OICC 


28AA 


4A43 




2 8 AC 






2 8 AC 






2 8 AC 






2 8 AC 


6700 


01D4 


28B0 






28B0 






28B0 


2442 




28B2 






28B2 






28B2 


6100 


02E2 


28B6 


6506 




28B8 


OCOO 


0020 


28BC 


6708 





@6 



.IF USERINT = 


.ELSE 




ADDQ 


#4,D6 


.ENDC 




MOVEQ 


#8,D4 


MOVE 


(A2)+,D0 


MOVEQ 


#4,D1 


BSR 


DUTCH 


ADDQ 


#1,D6 


SUBQ 


#1,D4 


BNE.S 


@6 


SUBQ.L 


#8,D2 


SOBQ.L 


#8,D2 


BLE.S 


@7 


BSR 


PUTLF 


BRA.S 


@5 



@7 



BSR 



PUTLF 



.IF USERINT = 
.ELSE 

BRA LEV2L00P 
.ENDC 

.PAGE 



;bump col for data display 

;set loop count 
;read data word 
; display it 

;add space 

;loop for one line 



;decr data count 

;exit if done 

;go to next line 

;and continue until done 

;add blank line 



; continue level2 loop 



RMOOO 
RMOOO 



Do set memory operation - enables setting of bytes, words or longs 

up to 24 bytes max. Decodes data length to determine type of operation. 



SETMEM 


BSR 


GETA 




BCS 


INVALID 




TST 


D3 




.IF USERINT = 




.ELSE 






BEQ 


LEV2L00P 




.ENDC 





;go get address 
; abort if invalid 
;any input? 



; abort if none 



MOVE.L D2,A2 ;save target address 

Check for all input on one line 



BSR GETCH 

BCS.S @1 

CMPI.B #' ' ,D0 

BEQ . S RDDTA 



;read queue to see if more input 
;skip if not 

;must be a space separator 
;skip if yes 
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28BEI 
28BEI 
28C2I 
28C6I 
28C6I 
28C6I 
28C8I 
28CCI 
28D0I 
28D2I 
28D2I 
28D2I 
28D2I 
28D6I 
28D6I 
28D6I 
28D6I 
28D6I 
28DAI 
28DCI 
28DEI 
28E0I 
28E2I 
28E6I 
28E8I 
28ECI 
28EEI 
28F0I 
28F2I 
28F2I 
28F4I 
28F4I 
28F8I 
28FAI 
28FEI 
29021 
29041 
29041 
29041 
29041 
29041 
29081 
29081 
29081 
29081 
29081 
29081 



47FA 1705 
6100 DICE 



7208 

6100 02E8 
6500 01A6 
4A43 



6700 OlAE 



0C03 0002 

6E04 

14C2 

6014 

200A 

0880 0000 

2440 

0C03 0004 

6E04 

34C2 

6002 

24C2 

6100 02A0 
650A 

OCOO 0020 
6600 0174 
60C2 



6000 017C 



@1 



LEA 
BSR 



DATAMSG,A3 
PRCaiPT 



;else output data prompt 



; Decode parameter input and do 
RDDTA MOVEQ #8,D1 

BSR GETPARM 

BCS INVALID 

TST D3 ; 

.IF USERINT = 
.ELSE 

BEQ LEV2L00P 
.ENDC 



write data to memory 





CMP.B 


#2,D3 




BGT.S 


@1 




MOVE.B 


D2, (A2)+ 




BRA.S 


@3 


@1 


MOVE.L 


A2,D0 




BCLR 


#0,D0 




MOVE.L 


D0,A2 




CMP.B 


#4,D3 




BGT.S 


@2 




MOVE 


D2, (A2)+ 




BRA.S 


@3 


@2 


MOVE.L 


D2,(A2)+ 


@3 


BSR 


GETCH 




BCS.S 


@4 




CMPI.B 


#' ',D0 




BNE 


INVALID 




BRA.S 


RDDTA 


@4 








.IF USERINT = 




.ELSE 






BRA 


LEV2L00P 




.ENDC 





.PAGE 



operation 

get max of 8 chars 



any input? 



; first test for byte operation 

;write byte 

; ensure even address for word or long op 

;test for word op 
; write word 



;write long 

;read input queue 

;skip if none 

;must be a space separator 

;exit if error 

;else continue operation 



; continue level2 loop 



Do 'call' function - ensures address is on word bovindary. 
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29081 
29081 
290CI 
29101 
29121 
29121 
29121 
29121 
29161 
29161 
29161 
291AI 
291EI 
291EI 
291EI 
291EI 
29221 
29261 
292AI 
292CI 
29301 
29301 
29301 
29301 
29341 
29341 
29341 
29341 
29341 
29341 
29341 
29341 
29341 
29341 
29341 
29381 
293CI 
29401 
29421 
29461 
29461 
29461 
294AI 
294EI 
29521 
29541 
29541 



6100 029A 
6500 0166 
4A43 



6700 016E 



0882 0000 
21C2 01F8 



4DF8 OICO 
4CDE 3FFF 
2C78 01F8 
4E96 
6100 D70C 



6000 0150 



CALLRTN BSR 


GETA 


BCS 


INVALID 


TST 


D3 


.IF USERINT = 


.ELSE 




BEQ 


LEV2L00P 


.ENDC 




BCLR 


#0,D2 


MOVE.L 


D2,A6SAV 



;go get address 
; abort if no input 

; continue level2 loop 



;else ensure on word boundary 
;save for juitp 



load registers from save area before jiamping 

LEA DATAEGS,A6 ;get ptr 
MOVEM.L (A6)+,D0-D7/A0-A5 ;load regs 



MOVE.L A6SAV,A6 
JSR (A6) 
BSR SAVEREGS 



.IF USERINT = 




.ELSE 






BRA 


LEV2L00P 




.ENDC 






.IF 


RCM16K = 


1 


.PAGE 







; restore address 

;and do call 

;save registers on exit 



; continue level2 loop 



Do loop on diagnostic 



LCX)PTST 



6100 FEDE 
6100 0216 
47FA 1602 
7818 
6100 ODBC 



47FA 168C 
6100 0146 
6500 0124 
4A43 



.IF USERINT = 1 


BSR 


MAKESVCW 


BSR 


PUTLF 


LEA 


TSTMENU,A3 


MOVEQ 


#FIRSTC0L,D4 


BSR 


DSPMSG 


.ENDC 




LEA 


TSTMSG,A3 


BSR 


PROMPT 


BCS 


INVALID 


TST 


D3 



; redraw service window 

;add blank line and setup ptrs 

;set ptr to test choices 

;set left margin 

;and go do display choices 



; display test routine praccpt 

;skip if bad input 
;any input? 



.IF USERINT = 
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2954 






2954 


6608 




2956 


6100 


FEBC 


295A 


6000 


0126 


295E 






295E 






295E 


5343 




2960 


6600 


0112 


2964 






2964 


7201 




2966 


6100 


024A 


296A 


0C02 


OOOC 


296E 


6200 


0104 


2972 


5342 




2974 


6B00 


OOFE 


2978 






2978 






2978 






2978 






2978 






2978 






2978 






2978 






2978 






2978 






2978 






2978 






2978 






2978 






2978 






2978 






2978 






2978 


2F02 




297A 


6100 


075E 


297E 


6100 


0800 


2982 


241F 




2984 


0C02 


0004 


2988 


6C06 




298A 


327C 


1DF6 


298E 


601C 




2990 






2990 


0C02 


OOOA 


2994 


6C06 




2996 


327C 


1E12 


299A 


6010 




299C 






29A0 


6C06 





@0 



.ELSE 




BNE.S 


@0 


BSR 


MAKESVCW 


BRA 


LEV2L00P 


.ENDC 




SUBQ 


#1,D3 


BNE 


INVALID 


MOVEQ 


#1,D1 


BSR 


GETPARM 


CMP.B 


#MAXTEST,D2 


BHI 


INVALID 


SOBQ 


#1,D2 


BMI 


INVALID 



;skip if yes 

;else redraw service window 

;and return to level 2 



; ensure only one char input 
;skip if more than one 

;go get one character of input 

; check if within max range 

;exit if not 

;decr for index 

;skip if negative (i.e., was input) 



Program NMI key to exit loop 
LCX)PEND,A3 



@1 



LEA 

MOVE.L 

MOVEQ 

BSR 

MOVEQ 

BSR 



A3,NMIVCT 
#$5A,D0 
COPSCMD 
#$61, DO 
COPSCMD 



;set NMI vector 



;set / key for NMI 



.IF USERINT = 1 



.IF FULLSCC = 




.ENDC 






MOVE.L 


D2,-(SP) 


;save test # 


BSR 


CLRDESK 


; clear desktop except for menu bar 


BSR 


MAKETEST 


;draw test window 


MOVE.L 


(SP)+,D2 


; restore test # 


CMP.B 


#4,D2 


;CPU test? 


BGE.S 


@1 


;skip if not 


MOVEA 


#CPUSTRT,A1 


;else set ptr for CPU board icon 


BRA.S 


@4 


;and go hilite it 


CMP.B 


#10, D2 


;I/0 board test? 


BGE.S 


@2 




MOVEA 


#I0STRT,A1 


;set ptr for I/O board icon 


BRA.S 


@4 




BGE.S 


@31,D2 


;memory test? 



RMOOO 



RMOOO 
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29A2 


327C 


1E04 


29A6 


6004 




29A8 


327C 


1E20 


29AC 






29AC 


6100 


0BC6 


29B0 






29B0 






29B0 


D442 




29B2 


08C7 


OOIF 


29B6 


41FA 


0024 


29BA 


DOFO 


2000 


29BE 


4ED0 




29C0 






29C0 






29C0 






29C0 






29C0 






29C0 






29C0 






29C0 






29C0 






29C0 






29C0 






29C0 






29C0 






29C0 


4A39 


OOFC EOlO 


29C6 


6000 


D7E8 


29CA 






29CA 






29CA 






29CA 






29CA 


08F9 


0006 OOFC C18D 


29D2 


7002 




29D4 


6100 


EE78 


29D8 


6000 


E434 


29DC 






29DC 






29DC 






29DC 


D7B8 




29DE 


FFE4 




29E0 


E1C6 




29E2 


E380 




29E4 


DDA4 




29E6 


DED4 




29E8 


DFOE 




29EA 






29EA 









MOVEA 


#MEMSTRT,A1 




BRA.S 


@4 


@3 


MOVEA 


#XCRDSTRT,A1 


@4 


BSR 
.ENDC 


INVICON 




ADD 


D2,D2 




BSET 


#LCX)P,D7 




LEA 


L(X)PTBL,AO 




ADD 


0(A0,D2.W) ,A0 




JMP 


(AO) 



;set ptr for memory board icon 
;else must be I/O slot card 
; display in test window 



;doiable test # for table index 

;set loop flag 

;and juitp to requested routine 



RMOOO 
RMOOO 



Loop exit via NMI routine 

LOOPEND BTST #1,STATREG 

BEQ NMI 

MOVE.L #STKBASE,SP 

BRA LEVEL2 



; parity error? 

;skip if yes to report error 

;else restore stack 

;and redisplay service mode 



; special entry points for routines that require initial setup 
MMUTSTEl 



TST.B 
BRA 



SETUPON 
MMOTST 



.IF FULLSCC = 
.ENDC 

MEMTST3 BSET #6,MEMC0DE 

MOVEQ #PROFILE,D0 

BSR SAV2PM 

BRA MEMLOOP 



;turn on SETUP bit for MMU tests 
;go do main test 



;set for extended memory test 

;and for normal boot default (Profile) 

;save in parameter memory 

;and go do memory testing 



junj) table for looping on start-up diagnostics 



LOOPTBL .WORD RCMTST-LOOPTBL 

.WORD MMUTSTEl -LOOPTBL 

.WORD VIDCHK-LOOPTBL 

.WORD PARTST-LOOPTBL 

.WORD VIA2TST-L00PTBL 

.WORD VIAICHK-LOOPTBL 

.WORD COPSENBL-LOOPTBL 

.IF FULLSCC = 1 



1 = RCM checksum test 

2 = MMU test 

3 = Video test 

4 = Parity logic test 

5 = Parallel port VIA test 

6 = Keyboard port VIA test 

7 = I/O board COPS test 
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29EA 


E62C 


29EC 




29EC 




29EC 




29EC 


E730 


29EE 


E8B0 


29F0 


FFEE 


29F2 


E91A 


29F4 




29F4 




29F4 




29F4 




29F4 




29F4 




29F4 




29F4 


7 OFF 


29F6 


6100 FCFA 


29FA 




29FA 




29FA 




29FA 


4280 


29FC 


6128 


29FE 


701B 


2A00 


721C 


2A02 


740C 


2A04 


6120 


2A06 


D041 


2A08 


51CA FFFA 


2A0C 




2A0C 




2A0C 




2A0C 


4280 


2A0E 


6130 


2A10 


702C 


2A12 


722D 


2A14 


740F 


2A16 


6128 


2A18 


D041 


2A1A 


51CA FFFA 


2A1E 




2A1E 




2A1E 




2A1E 


6100 FCE2 


2A22 


6000 FD18 


2A26 




2A26 




2A26 





.WORD 
.ELSE 
.ENDC 



SCCTEST-LOOPTBL 



.WORD DSKTST-LOOPTBL 

.WORD CLKTST-LOOPTBL 

.WORD MEMTST3-L00PTBL 

.WORD C0NFIG2-L00PTBL 

.ENDC 
.PAGE 



;8 = sec test 



9 = disk controller test 

A = clock test 

B = memory test 

C = configuration check 



Display video adjust pattern 



VIDAJST MOVEQ 
BSR 



#-l,DO 
WRTSCRN 



; first erase the screen 



Next draw the horizontal lines 



@1 



@2 



CLR.L 


DO 


;set scan line 


BSR.S 


DRNHORZ 


;go draw white line 


MOVEQ 


#27, DO 


;set next scan line 


MOVEQ 


#28, Dl 


;set increment value also 


MOVEQ 


#12, D2 


;set line count 


BSR.S 


DRWHORZ 


;draw some more 


ADD 


D1,D0 


;incr to next line position 


DBF 


D2,@l 


;loop until done 


Now draw the 


vertical lines 




CLR.L 


DO 


;set pixel # 


BSR.S 


DRWVERT 


;draw a vertical line 


MOVEQ 


#44, DO 


;set next pixel position 


MOVEQ 


#45, Dl 


;set incr value also 


MOVEQ 


#15, D2 


;set line count 


BSR.S 


DRWVERT 


;draw some more 


ADD 


D1,D0 


;incr to next pixel position 


DBF 


D2,@2 


;loop until done 



Wait for any keystroke to terminate display 



BSR 
BRA 

.PAGE 



READKEY 
LEVEL2 



; return to menu display 
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2A26I 
2A26I 
2A26I 
2A26I 
2A26I 
2A26I 
2A2AI 
2A2CI 
2A2EI 
2A32I 
2A34I 
2A36I 
2A38I 
2A3AI 
2A3EI 
2A40I 
2A40I 
2A40I 
2A40I 
2A40I 
2A40I 
2A40I 
2A40I 
2A44I 
2A46I 
2A48I 
2A4AI 
2A4CI 
2A50I 
2A52I 
2A52I 
2A54I 
2A56I 
2A58I 
2A58I 
2A5AI 
2A5EI 
2A60I 
2A62I 
2A64I 
2A66I 
2A6AI 
2A6CI 
2A6CI 
2A6CI 
2A6CI 
2A6CI 



Subroutine to draw horizontal lines . 
DO = scan line (0 to 363 decimal) 
$110 = base address of screen 



Requires inputs : 



48E7 C080 

725A 

COCl 

2078 0110 

DICO 

4218 

5341 

66FA 

4CDF 0103 

4E75 



@1 



MOVEM.L 


D0/D1/A0,-(SP) 


;save regs 


MOVEQ 


#90, Dl 


;line length in bytes 


MULU 


D1,D0 


; compute address offset 


MOVE.L 


SCRNBASE,AO 


;get base screen address 


ADDA.L 


DO,AO 


;add offset 


CLR.B 


(A0) + 


;draw the line 


SUBQ 


#1,D1 




BNE.S 


@1 




MOVEM.L 


(SP)+,D0/D1/A0 


(■restore 


RTS 







Subroutine to draw vertical lines. Requires inputs: 
DO = pixel position (0 to 719 decimal) 
$110 = base address of screen 



48E7 F080 

7208 

80C1 

4282 

3400 

2078 0110 

D1C2 

4840 
9240 
5341 

745A 

363C 016C 
0390 
D1C2 
5343 
66F8 

4CDF OlOF 
4E75 



DRWVERT MOVEM.L D0-D3/A0,- (SP) ;save regs 



@1 



MOVEQ 


#8,D1 




; pixels per byte 


DIVU 


D1,D0 




;cortpute address offset 


CLR.L 


D2 






MOVE 


D0,D2 




;save offset 


MOVE.L 


SCRNBASE 


,A0 


;get base screen address 


ADDA.L 


D2,A0 




;add offset 


SWAP 


DO 




;get remainder 


SUB 


D0,D1 




(•cortpute bit position to set 


SUBQ 


#1,D1 






MOVEQ 


#90, D2 




; distance to next pixel 


MOVE 


#364, D3 




;line length 


BCLR 


Dl, (AO) 




;draw the line 


ADDA.L 


D2,A0 




/cortpute next pixel to set 


SUBQ 


#1,D3 






BNE.S 


@1 




;loop until done 


MOVEM.L 


(SP)+,D0 


-D3/A0 


; restore 


RTS 









.IF BURNIN = 1 



Power cycle entry point - branches to cycling routine 
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2A6CI 
2A6CI 
2A6CI 
2A70I 
2A74I 
2A74I 
2A74I 
2A74I 
2A74I 
2A74I 
2A74I 
2A74I 
2A78I 
2A78I 
2A78I 
2A7CI 
2A80I 
2A82I 
2A82I 
2A82I 
2A86I 
2A86I 
2A8AI 
2A8EI 
2A92I 
2A92I 
2A92I 
2A92I 
2A92I 
2A92I 
2A92I 
2A92I 
2A92I 
2A92I 
2A92I 
2A92I 
2A92I 
2A92I 
2A92I 
2A96I 
2A9AI 
2A9EI 
2AA2I 
2AA6I 
2AA8I 
2AACI 
2AB0I 



6100 066C 
6000 F7D2 



PowerCycle 
BSR 
BRA 

.ENDC 

.PAGE 



CLRDESK 
CHKPAS2 



; clear desktop 

;go start power cycle 



Invalid input detected - beep speaker and notify user 



6100 FC96 



47FA 1561 
6100 018C 
6004 



6100 01A4 

6100 FD18 
6100 0582 
6000 FCBC 



INVALID BSR SQUAWK 

.IF USERINT = 

.ELSE 

LEA WHATMSG,A3 

BSR DBOXDSPLY 

BRA.S INVXIT 



LEV2LCX)P 



INVXIT 



BSR 

BSR 
BSR 
BRA 
.ENDC 



CLRDBOX 

WRTMENU 

CursorDisplay 

GETLEV2 



.IF R0M16K = 1 
.IF FULLSCC = 
.ENDC 
.ENDC 

.PAGE 

.IF USERINT = 

.ELSE 



; that ' s a no no 



; output question mark 
; display in dialog box 



;go remove dialog box 

; redisplay pull-down menu 
; redisplay cursor 
;and go get more input 



: {FULLSCC} 
: {R0M16K} 



Subroutine to output proitpt line and gather input 



48E7 
6100 
3A3C 
3C3C 
6100 
5442 
31C2 
6100 
6100 



0620 
071A 
0018 
0018 
0974 

052E 
0C52 
0008 



PROMPT MOVEM.L D5-D6/A2,- (SP) ;save screen ptrs and target address 

;make dialog box 
;set msg ptrs 

;get message length 
;incr for spacing 
;save as message length 
; write msg 
;go handle input 



BSR 


MAKEDBOX 


MOVE 


#DB0XR0W,D5 


MOVE 


#DB0XC0L,D6 


BSR 


GETLENGTH 


ADDQ 


#2,D2 


MOVE 


n?,MSGT,KN 


BSR 


DSPMSG 


BSR 


RDINPUT 
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2AB4 


4CDF 


0460 


2AB8 


4E75 




2ABA 






2ABA 






2ABA 






2ABA 






2KBA 






2KBA 






2KBA 






2ABA 


207C 


0000 02C0 


2AC0 


2248 




2AC2 


4283 




2AC4 






2AC4 


6100 


FC3C 


2AC8 


6100 


FC50 


2ACC 






2ACC 


4A00 




2ACE 


67F4 




2AD0 


OCOO 


0008 


2AD4 


6612 




2AD6 


4A43 




2AD8 


67EA 




2ADA 


5343 




2ADC 


4A21 




2ADE 


6100 


008C 


2AE2 


6100 


0096 


2AE6 


60DC 




2AE8 






2AE8 


OCOO 


OOOD 


2AEC 


6718 




2AEE 






2AEE 


0C03 


0030 


2AF2 


6D06 




2AF4 


6100 


FC16 


2AF8 


60CA 




2AFA 






2AFA 


5243 




2AFC 


6100 


0088 


2B00 


6100 


0C38 


2B04 


60BE 




2B06 






2B06 


4E75 




2B08 






2B08 






2B08 






2B08 






2B08 







MOVEM.L (SP)+,D5-D6/A2 
RTS 



; restore and exit 



Subroutine to read keyboard input and save in buffer. 
48 characters . 



Accepts max of 



RD INPUT 





MOVE.L 


#KBDBFR,A0 




MOVE.L 


A0,A1 




CLR.L 


D3 


READIN 


BSR 


READKEY 




BSR 


KeyToASCII 




TST.B 


DO 




BEQ.S 


READIN 




CMP.B 


#BS,DO 




BNE.S 


@2 




TST 


D3 




BEQ.S 


READIN 




SUBQ 


#1,D3 




TST.B 


-(Al) 




BSR 


PUTBS 




BSR 


CLRIT 




BRA.S 


READIN 


@2 


CMP.B 


#RET,DO 




BEQ.S 


@3 




CMP.B 


#48, D3 




BLT.S 


@4 




BSR 


SQUAWK 




BRA.S 


READIN 


@4 


ADDQ 


#1,D3 




BSR 


ENQKBD 




BSR 


DSFVAL 




BRA.S 


READIN 



@3 



;set buffer ptrs 

;saine for head and tail 

; clear for result use 

;get char 

; convert to ASCII 

; ignore CMD, Option, Shift, Alpha lock 

; backspace key? 

;any input 

;no - ignore 

; decrement count 

; delete char from queue 

;do backspace on screen 

; clear char on screen 

;and continue 

; return key? 
; yes - exit 

;at max? 
;skip if no 
;else notify user 
;and ignore input 

;incr char count 
; queue it 
;and output it 
;and continue read 



RTS 



SCROLL - move contents of Service Window up one whole line. Assimied 
that we are at bottom line when called. D6 (column) and D5 (row) are 
set to start of last line. 
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2B08 






2B08 


48E7 


E080 


2B0C 


7A48 




2B0E 


7C18 




2B10 


6100 


0C08 


2B14 


204E 




2B16 


DOFC 


0384 


2B1A 


343C 


OOIB 


2B1E 






2B1E 


323C 


OOOA 


2B22 


303C 


0042 


2B26 


3CD8 




2B28 


5540 




2B2A 


6EFA 




2B2C 






2B2C 


5245 




2B2E 


7C18 




2B30 


6100 


0BE8 


2B34 


204E 




2B36 


DOFC 


0384 


2B3A 


5341 




2B3C 


66E4 




2B3E 






2B3E 


5342 




2B40 


66DC 




2B42 






2B42 


3A3C 


014C 


2B46 


3C3C 


0018 


2B4A 


4CDF 


0107 


2B4E 


4E75 




2B50 






2B50 






2B50 






2B50 






2B50 






2B50 


3A38 


0300 


2B54 


7C18 




2B56 


0645 


OOOA 


2B5A 


0C45 


014C 


2B5E 


6F02 




2B60 


61A6 




2B62 


31C5 


0300 


2B66 


31C6 


0302 


2B6A 


4E75 




2B6C 






2B6C 






2B6C 







SCROLL MOVEM.L D0-D2/A0,- (SP) 



@1 
@2 
@3 



@4 



MOVEQ 

MOVEQ 

BSR 

MOVE.L 

ADDA 

MOVE 

MOVE 
MOVE 
MOVE 
SUBQ 
BGT.S 

ADDQ 

MOVEQ 

BSR 

MOVE.L 

ADDA 

SUBQ 

BNE.S 



#FIRSTROW+ROWLINES ,D5 

#FIRSTC0L,D6 

SETCRSR 

A6,A0 

#<RBYTES*10>,A0 

#NR0WS,D2 



;save data regs and bfr ptr 

;set beginning character row +1 

; and beginning coliomn 

;get address of screen 

;set as to ptr 

;set from ptr down one character row 

/nioitiber of rows to move 



RMOOO 



#R0WLINES,D1 
#ROWLEN,D0 
(A0) + , (A6) + 
#2, DO 

@3 

#1,D5 

#FIRSTC0L,D6 

SETCRSR 

A6,A0 

#<RBYTES*10>,A0 

#1,D1 

@2 



; number of pixel lines per character row 

; length of a pixel line in window 

; scroll it 

;do entire pixel line 



;bimp to next row 

;set first col 

; compute address 

;set as to ptr 

;set from ptr down one character row 

;do all pixel lines 



; finished a character row 
; loop until done 

;peg at bottom 

; restore data regs and bfr ptr 



RMOOO 



SOBQ #1,D2 

BNE.S @1 

MOVE #LASTR0W,D5 

MOVE #FIRSTC0L,D6 

MOVEM.L (SP)+,D0-D2/A0 
RTS 

.PAGE 



PUTLF - advance to next row; this may cause a scroll if at bottom 

PUTLF MOVE CRTR0W,D5 ;get last state 

; update column to left edge of window 
;bump row by number of pixel lines per row 

;skip if its ok 
; else, do a scroll operation 
@9 MOVE D5,CRTR0W ;save updates 



POTBS - move cursor left one position. 

Assiomes location MSGLEN = left most coliomn for window. 



MOVE 


CRTR0W,D5 


MOVEQ 


#FIRSTC0L,D6 


ADD 


#R0WLINES,D5 


CMPI 


#LASTR0W,D5 


BLE.S 


@9 


BSR.S 


SCROLL 


MOVE 


D5,CRTR0W 


MOVE 


D6,CRTC0L 


RTS 
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2B6C 






2B6C 


5346 




2B6E 


BC78 


052E 


2B72 


6C04 




2B74 


3C38 


052E 


2B78 


4E75 




2B7A 






2B7A 






2B7A 


303C 


0020 


2B7E 


6100 


OBBA 


2B82 


5346 




2B84 


4E75 




2B86 






2B86 






2B86 






2B86 






2B86 






2B86 






2B86 






2B86 


2F0A 




2B88 


347C 


0300 


2B8C 


B5C9 




2B8E 


6702 




2B90 


12C0 




2B92 


245F 




2B94 


4E75 




2B96 






2B96 






2B96 






2B96 






2B96 






2B96 






2B96 


B3C8 




2B98 


6704 




2B9A 


1018 




2B9C 


6004 




2B9E 


003C 


0001 


2BA2 


4E75 




2BA4 






2BA4 






2BA4 






2BA4 






2BA4 






2BA4 






2BA4 


47FA 


1415 


2BA8 


6100 


FEE8 


2BAC 


7208 





PUTBS 


SOBQ 


#1,D6 




CMP 


MSGLEN,D6 




BGE.S 


@9 




MOVE 


MSGLEN,D6 


@9 


RTS 





;stop at left edge 



; Routine to erase data on screen 
CLRIT MOVE #' ',D0 ; output a space 
BSR DSPVAL 

SUBQ #1,D6 ; reposition col ptr 

RTS ; and that ' s all there is . . . 

.ENDC 
.PAGE 



Subroutine to save keyboard input in buffer - ignores data if buffer full. 



ENQKBD 



@9 



MOVE.L 


A2,-(SP) 


MOVEA 


#KBDEND,A2 


CMPA.L 


A1,A2 


BEQ.S 


@9 


MOVE.B 


DO, (Al)+ 


MOVE.L 


(SP) + ,A2 


RTS 





;save working reg 

;get ptr to end of buffer 

; at end of buffer? 

; exit if yes 

; else do save 

; restore 



RMOOO 



This code gets the next byte from the keyboard queue and delivers it to 
caller in DO . 



GETCH CMPA . L AO , Al 

BEQ.S @1 

MOVE.B (AO)+,DO 

BRA.S @2 

ORI.B #$01,CCR 
RTS 



@1 
@2 



; check if any data 
;exit if none 
;get data 

;set enpty indicator 



.FA(S 



Subroutine to get address parameter 



GETA LEA ADDRMSG,A3 
BSR PRCaiPT 
MOVEQ #8,D1 



; output prompt and get input 
;decode address (max of 8 digits) 
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2BAE 


6102 




2BB0 


4E75 




2BB2 






2BB2 






2BB2 






2BB2 






2BB2 






2BB2 






2BB2 






2BB2 






2BB2 






2BB2 






2BB2 






2BB2 






2BB2 


4283 




2BB4 


4282 




2BB6 






2BB6 


61DE 




2BB8 


652E 




2BBA 


OCOO 


0020 


2BBE 


6604 




2BC0 


4A20 




2BC2 


6024 




2BC4 






2BC4 


OCOO 


0030 


2BC8 


6D24 




2BCA 


OCOO 


0039 


2BCE 


630C 




2BD0 


OCOO 


0041 


2BD4 


6D18 




2BD6 


OCOO 


0046 


2BDA 


6E12 




2BDC 






2BDC 


6116 




2BDE 


E98A 




2BE0 


8400 




2BE2 


5243 




2BE4 


B203 




2BE6 


66CE 




2BE8 






2BE8 


023C 


OOFE 


2BEC 


6004 




2BEE 






2BEE 


003C 


0001 


2BF2 






2BF2 


4E75 




2BF4 







BSR.S 
RTS 

.FA(S 



GETPABM 



Subroutine to get input parameters. Reads Ascii values from keyboard 
buffer and calls conversion routine to return hex values. Stops after 
reading requested input or 'space' separator encountered. 
Inputs : Dl = max chars to read 
Outputs : D2 = value read 

D3 = # of chars read 
Carry bit set if invalid chars . 



GETPARM 


CLR.L 


D3 




CLR.L 


D2 


READQ 


BSR 


GETCH 




BCS.S 


GETEXIT 




CMPI.B 


#' ',D0 




BNE.S 


@3 




TST.B 


-(AO) 




BRA.S 


GETEXIT 


@3 


CMPI.B 


#'0',D0 




BLT.S 


INVPARM 




CMPI.B 


#'9', DO 




BLS.S 


OKCH 




CMPI.B 


#'A',DO 




BLT.S 


INVPARM 




CMPI.B 


#'F' ,D0 




BGT.S 


INVPARM 


OKCH 


BSR.S 


CONVERT 




LSL.L 


#4,D2 




OR.B 


D0,D2 




ADDQ 


#1,D3 




CMP.B 


D3,D1 




BNE.S 


READQ 


GETEXIT 


AMDI.B 


#$FE,CCR 




BRA.S 


GETXIT2 


INVPARM 


ORI.B 


#$01,CCR 


GE'i'XIT2 


RTS 





;use for counter 
;use for result 

; check input queue 
;exit if no chars 
; space separator? 
;if not, go response 
; replace on queue 
;and exit 

; check if valid hex char 



;0K if 0-9 
; or A-F 



; convert to hex digit 
;save char 

;bump counter 

;at max? 

; continue if no 

; clear error indicator 
;and exit 

;set error indicator 
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2BF4 
2BF4 






2BF4 






2BF4 






2BF4 






2BF4 


OCOO 


0040 


2BF8 


6E06 




2BFA 


0400 


0030 


2BFE 


6008 




2C00 






2C00 


0400 


0041 


2C04 


0600 


OOOA 


2C08 






2C08 


4E75 




2C0A 






2C0A 






2C0A 






2C0A 






2C0A 






2C0A 






2C0A 






2C0A 






2C0A 


48E7 


8600 


2C0E 


6100 


05A2 


2C12 


3A3C 


0018 


2C16 


3C3C 


0018 


2C1A 


6100 


OAFE 


2C1E 


6100 


OAEO 


2C22 


4CDF 


0061 


2C26 


4E75 




2C28 






2C28 






2C28 






2C28 






2C28 






2C28 


705A 




2C2A 


3C7C 


05FA 


2C2E 


4281 




2C30 


2A4E 




2C32 


223C 


0000 0708 


2C38 


0681 


0000 0168 


2C3E 


DBCl 




2C40 


6100 


04AC 


2C44 


4E75 




2C46 






2C46 






2C46 







Subroutine to convert Ascii character to hex. Expects input in DO 
and returns converted value in DO . 



CONVERT CMP.B #$40, DO 

BGT.S @1 

SUBI.B #$30, DO 

BRA.S @9 

@1 SUBI.B #$41, DO 

ADDI.B #$OA,DO 

@9 RTS 

.PAGE 

.IF USERINT = 1 



; check if nvimber or letter 

;skip if letter 

;siitple operation for nixnber 



;a little different for letters 



Subroutine to write to dialog box 



DBOXDSPLY 

MOVEM.L D0/D5-D6,-(SP) ;save DO and current cursor ptrs 

BSR MAKEDBOX ; clear dialog box and redraw 

MOVE #DB0XR0W,D5 ;set box coordinates 

MOVE #DB0XC0L,D6 

BSR SETCRSR ;get address in A6 

BSR DSPMSG ;write itisg 

MOVEM.L (SP)+,D0/D5-D6 ;restore 

RTS ;and exit 



Subroutine to remove dialog box from screen 



;set pixel line length RMOOO 

;set starting point as bottom of menu line RMOOO 



CLRDBOX MOVEQ #ROWBYTES,D0 

MOVEA #DESKLINE , A6 

CLR.L Dl 

MOVE.L A6,A5 ;set limit as bottom of dialog box 

MOVE.L #<DB0XHIGH*R0WBYTES>,D1 ; by adding box heigth to start pt 

ADD . L #DB0XT0P , Dl 

ADDA.L D1,A5 

BSR GRAY /redraw gray pattern 

RTS 



GETINPUT routine - waits for inputs from mouse or keyboard and returns 
with keycode in DO if keyboard input, or rectangle ID if active rect is 
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2C46 








2C46 








2C46 








2C46 








2C46 








2C46 








2C46 








2C46 


0838 


0003 


02A2 


2C4C 


666C 






2C4E 


6100 


00E8 




2C52 








2C52 


OCOO 


0006 




2C56 


6608 






2C58 


08B8 


0004 


02A2 


2C5E 


60EE 






2C60 








2C60 


OCOO 


0086 




2C64 


6608 






2C66 


08F8 


0004 


02A2 


2C6C 


6014 






2C6E 








2C6E 


4A00 






2C70 


661A 






2C72 


6100 


0376 




2C76 


6100 


0396 




2C7A 








2C7A 


0838 


0004 


02A2 


2C80 


67CC 






2C82 








2C82 


6100 


01C2 




2C86 


67C6 






2C88 


6000 


0082 




2C8C 








2C8C 


OCOO 


OOFF 




2C90 


6608 






2C92 


08F8 


0003 


02A2 


2C98 


6020 






2C9A 








2C9A 


OCOO 


007F 




2C9E 


6608 






2CA0 


08B8 


0003 


02A2 


2CA6 


60A6 






2CA8 


0838 


0005 


02A2 


2CAE 


669E 






2CB0 


4A00 






2CB2 


6A92 






2CB4 


6100 


OlEC 





selected with the mouse. If CMD flag is set, keyboard input returned 
only when prefaced by the CMD key. 



; State 1 - General wait 


GETINPUT 






BTST 


#CMDFLG,STATFLGS 




BNE.S 


GET2 


GETl 


BSR 


WT4 INPUT 


CHKIT 








CMP.B 


#MOUSUP,D0 




BNE.S 


@1 




BCLR 


#MOUSE,STATFLGS 




BRA.S 


GETl 


@1 


CMP.B 


#MOUSDWN,D0 




BNE.S 


@2 




BSET 


#MOUSE,STATFLGS 




BRA.S 


@3 


@2 


TST.B 


DO 




BNE.S 


@5 




BSR 


CursorHide 




BSR 


CursorDisplay 




BTST 


#MOUSE,STATFLGS 




BEQ.S 


GETl 


@3 


BSR 


CHKPOSN 




BEQ.S 


GETl 




BRA 


GET3 


@5 


CMP.B 


#CmdDwn,DO 




BNE.S 


@6 




BSET 


#CMDFLG , STATi'LGS 




BRA.S 


GET2 


@6 


CMP.B 


#CmdUp,DO 




BNE.S 


@4 




BCLR 


#CMDFLG , STATi'LGS 




BRA.S 


GETl 


@4 


BTST 


#CHKCMD,STATFLGS 




BNE.S 


GETl 


@7 


TST.B 


DO 




BPL.S 


GETINPUT 




BSR 


CHKINPUT 



/command key still down? 
;skip if yes 
:else go wait for COPS input 

:mouse button up? 

: clear mouse flag 

:and go wait for more input 

: mouse button down? 

:set reminder flag 



: mouse data? 

:skip if not 

:else clear old cursor 

:and redisplay cursor in new position 

:is mouse button down? 
:skip if not 

:else go check mouse position 
: continue if not over a rect 
:else go to state 3 

: command key down? 

;set flag if yes 
;and go to state 2 

; command key up? 

; clear flag if yes 

;and continue in loop 

;CMD key prefix required? 

;loop if yes 
:else check if downstroke 
:skip upstrokes 
:go check if rectangle selected 
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2CB8 


4E75 






2CBA 








2CBA 








2CBA 








2CBA 








2CBA 


6100 


007C 




2CBE 








2CBE 


OCOO 


007F 




2CC2 


6608 






2CC4 


08B8 


0003 


02A2 


2CCA 


6082 






2CCC 








2CCC 


OCOO 


0006 




2CD0 


6608 






2CD2 


08B8 


0004 


02A2 


2CD8 


60E0 






2CDA 








2CDA 


OCOO 


0086 




2CDE 


6608 






2CE0 


08F8 


0004 


02A2 


2CE6 


6014 






2CE8 








2CE8 


4A00 






2CEA 


6618 






2CEC 


6100 


02FC 




2CF0 


6100 


031C 




2CF4 








2CF4 


0838 


0004 


02A2 


2CFA 


67BE 






2CFC 








2CFC 


6100 


0148 




2D00 


67B8 






2D02 


6008 






2D04 








2D04 


6AB4 






2D06 


6100 


019A 




2D0A 


4E75 






2D0C 








2D0C 








2D0C 








2D0C 


3200 






2D0E 


6100 


0028 




2D12 








2D12 


OCOO 


0006 




2D16 


660A 






2D18 


08B8 


0004 


02A2 


2D1E 


3001 







RTS ;and return with keycode 

State 2 - Command (apple) button down 



GET2 
WAIT2 



BSR 



WT4 INPUT 



;else go wait for COPS input 



CHKIT2 CMP.B #CMDUP,D0 ; command key up? 

BNE.S @2 ;skip if not 

BCLR #CMDFLG,STATFLGS ;else clear flag 

BRA.S GETl ;and return to state 1 



@2 



@3 



@4 



CMP.B #MOUSUP,D0 



; mouse button up? 



@5 



@6 



BNE.S 

BCLR 

BRA.S 

CMP.B 
BNE.S 
BSET 
BRA.S 

TST.B 
BNE.S 
BSR 
BSR 

BTST 
BEQ.S 

BSR 

BEQ.S 

BRA.S 

BPL.S 

BSR 

RTS 



@3 

#MOUSE , STATFLGS ; clear mouse flag 

GET2 ;and go wait for more input 

#MOUSDWN,D0 ; mouse button down? 

@4 

#MOUSE , STATFLGS ;set reminder flag 

@5 



DO 

@6 

CursorHide 

CursorDisplay 



; mouse data? 

;else clear old cursor 

;and redisplay cursor in new position 



#MOUSE , STATFLGS ;is mouse button down? 

GET2 ;skip if not 

CHKPOSN ;else go check mouse position 

GET2 ; continue if not over a rect 

GET3 ;else go to state 3 

WAIT2 ; ignore upstrokes 

CHKINPUT ;go check if rectangle selected 
;and return with keycode 



; State 3 - Mouse button down and over an active rectangle 

GET3 MOVE D0,D1 ;save rectangle ID 

WAIT3 BSR WT4INPUT ;go wait for input 

CMP.B #MOUSUP,D0 ;mouse button up? 

BNE.S @1 ;skip if not 

BCLR #MOUSE , STATFLGS ; clear indicator 

MOVE D1,D0 ; restore rectangle ID 
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2D20 


4E75 




2D22 






2D22 


4A00 




2D24 


66E8 




2D26 






2D26 


6100 


02C2 


2D2A 


6100 


02E2 


2D2E 


6100 


0116 


2D32 


66D8 




2D34 


6000 


FFIO 


2D38 






2D38 






2D38 






2D38 






2D38 






2D38 






2D38 






2D38 






2D38 






2D38 






2D38 






2D38 






2D38 






2D38 


6100 


0084 


2D3C 


4A00 




2D3E 


6708 




2D40 


OCOO 


0080 


2D44 


6716 




2D46 


4E75 




2D48 






2D48 






2D48 


6174 




2D4A 


IICO 


048A 


2D4E 


616E 




2D50 


llCO 


048B 


2D54 


6100 


01D4 


2D58 


4240 




2D5A 


4E75 




2D5C 






2D5C 






2D5C 






2D5C 


6160 




2D5E 


OCOO 


OODF 


2D62 


6318 




2D64 


OCOO 


OOEF 


2D68 


6318 




2D6A 


OCOO 


OOFB 



RTS 



@1 



@2 



TST.B 


DO 


BNE.S 


WAIT3 


BSR 


CursorHide 


BSR 


CursorDisplay 


BSR 


CHKPOSN 


BNE.S 


GET3 


BRA 


GETINPUT 



;and go analyze input 

; mouse data? 

; continue wait if not - ignore keyboard input 

;inove cursor to new position 

; check if over a rect 
;stay in this state if yes 
;else return to state 1 



WT4 INPUT 



Routine to wait for input from COPS. Returns with keycode in DO 
or sets DO = if mouse data received. 



WT4INPUT 



State - general wait 



COPSO 



State 



COPSl 



BSR 


ReadCOPS 


TST.B 


DO 


BEQ.S 


COPSl 


CMP.B 


#RSTCODE,D0 


BEQ.S 


C0PS2 


RTS 




1 - waiting for mouse 


BSR.S 


ReadCOPS 


MOVE.B 


DO,MousDx 


BSR.S 


ReadCOPS 


MOVE.B 


DO,MousDy 


BSR 


MouseMovement 


CLR 


DO 


RTS 





;get input from COPS 

; mouse data? 

;go to state 1 if yes 

; reset code? 

;skip to state 2 if yes 

;else return with the keycode 



;get COPS input 

;save mouse delta-x 

;read and 

;save mouse delta-y 

; record the mouse movement 

;set mouse flag 

;and exit 



State 2 - waiting for reset code 



C0PS2 



BSR.S 


ReadCOPS 


;get COPS input 


CMP.B 


#$DF,DO 


; reset code <= $DF? 


BLS.S 


@1 


;branch if yes 


CMP.B 


#$EF,DO 


; reset code <= $EF? 


BLS.S 


@2 


;skip if yes 


CMP.B 


#$FB,DO 


; reset code <= $FB 
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2D6E 


6500 


0018 


2D72 


6716 




2D74 


OCOO 


OOFD 


2D78 


630E 




2D7A 


6010 




2D7C 






2D7C 






2D7C 


IICO 


01B2 


2D80 


60B6 




2D82 






2D82 






2D82 






2D82 


llCO 


0480 


2D86 


6016 




2D88 






2D88 






2D88 






2D88 






2D88 


60AE 




2D8A 






2D8A 






2D8A 






2D8A 


604C 




2D8C 






2D8C 






2D8C 


OCOO 


OOFE 


2D90 


6604 




2D92 


7034 




2D94 


6002 




2D96 


7035 




2D98 


003C 


0001 


2D9C 


4E75 




2D9E 






2D9E 






2D9E 






2D9E 


48E7 


60E0 


2DA2 


43F8 


0481 


2DA6 


45F8 


0486 


2DAA 


7205 




2DAC 


6100 


DCDO 


2DB0 


6504 




2DB2 


5341 




2DB4 


66F6 




2DB6 






2DB6 


4CDF 


0706 


2DBA 


6000 


FF7C 


2DBE 







BLO.S @3 

BEQ.S @4 

CMP.B #$FD,DO 

BLS . S @3 

BRA.S @5 



;branch if < $FB 
;branch if = $FB 
; reset code <= $FD? 
; branch if <= $FD 
;branch if > $FD 



; $00 - $DF Keyboard ID number - save and return to state 

@1 MOVE.B DO,KeyID ;save new ID 

BRA.S COPSO ; return to general wait 

; $E0 - $EF Clock data - save first nibble, and go to state 4 

@2 MOVE.B DO,ClockBytes ;save it 

BRA.S C0PS4 ;and go get rest of data 



Reserved ignored 

Clock timer interrupt, keyboard lanplugged 

COPSO ;go back to general wait 

Soft on/off button - go to power-off routine 

PowerOff ;go shutdown the system 



; $F0 - $FA 

; $FC - $FD Clock timer interrupt, keyboard lanplugged ignored 

@3 BRA.S 

; $FB 

@4 BRA.S 

; $FE - $FF COPS failure codes - go to error routine 

@5 CMP.B #$FE,DO ;I/0 board COPS? 

BNE.S @6 

MOVEQ #EIOCOP,D0 ;else set I/O COPS error code 

BRA.S @7 

@6 MOVEQ #EKBDCOP,D0 ;set keyboard COPS error code 

@7 ORI.B #$01,CCR ;set return error indicator 

RTS 

; State 4 - waiting for clock data; use timeout routine to guard against error 

C0PS4 MOVEM.L D1-D2/A0-A2,- (SP) ;save regs 

LEA ClockBytes+l,Al ;set ptrs to save area 

LEA ClockBytes+6,A2 

MOVEQ #5,D1 ;5 more bytes expected 

@1 BSR GETDATA ;get COPS data 

BCS.S @2 ;skip if any errors 

SUBQ #1,D1 ;loop until done 

BNE.S @1 

@2 MOVEM.L (SP)+,D1-D2/A0-A2 ;restore regs and 

BRA.S COPSO ;go back to general wait 
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2DBE 






2DBE 






2DBE 






2DBE 






2DBE 






2DBE 






2DBE 






2DBE 






2DBE 






2DBE 






2DBE 


2F08 




2DC0 


207C 


OOFC DD81 


2DC6 


1028 


OOIA 


2DCA 


0800 


0001 


2DCE 


67F6 




2DD0 


1028 


0002 


2DD4 


205F 




2DD6 


4E75 




2DD8 






2DD8 






2DD8 






2DD8 






2DD8 






2DD8 






2DD8 






2DD8 


0807 


0011 


2DDC 


6622 




2DDE 


207C 


OOFC COOl 


2DE4 


6144 




2DE6 


4228 


0004 


2DEA 


6100 


F06A 


2DEE 


117C 


0080 0004 


2DF4 


6100 


F060 


2DF8 






2DF8 


lOBC 


0089 


2DFC 


6100 


F006 


2E00 






2E00 


49FA 


0006 


2E04 


6000 


D9FA 


2E08 






2E08 


203C 


0003 D090 


2E0E 


6100 


DCD2 


2E12 


7021 




2E14 


6100 


DB40 


2E18 


6100 


DCC2 


2E1C 






2E1C 


6100 


F8EE 



.ENDC 



; {USERINT} 



ReadCOPS 

Routine to get data from COPS . Returns with data in DO . 



ReadCOPS 

MOVE.L AO,-(SP) 

MOVE . L #VIA1BASE , AO 

@1 MOVE.B IFR1(A0),D0 

BTST #1,D0 

BEQ.S @1 

MOVE.B ORA1(AO),DO 

MOVE.L (SP)+,AO 

RTS 

.IF USERINT = 1 



;get interface ptr 
;poll for data 

;loop until data received 

; read 

;and return 



PowerOff - routine to shutdown the system 



PowerOff 



BTST 
BNE.S 
MOVE.L 
BSR.S 



#DISK,D7 
@9 

#DISKMEM,AO 
ENBLDRVS 



MOVE . B #DRV1 , DRV ( AO ) 



BSR 



EJCTDSK 



MOVE.B #DRV2,DRV(A0) 



BSR 



EJCTDSK 



@9 
# 
# 
#@1 



MOVE.B #DIE,(AO) 

BSR CMDCHK 

BSR4 CONOFF 
LEA @1,A4 
BRA CONOFF 

MOVE . L #ONESEC , DO 

BSR DELAY 

MOVEQ #$21, DO 

BSR COPSCMD 

BSR KBDDELAY 



BSR 



SQUAWK 



;disk controller error? 
;skip if yes 

;set ptr for shared memory 
; enable both drives 
;eject diskette in drive 1 

;and drive 2 



;get Twiggy controller out of memory 
;wait until command taken 
;turn off contrast 



;wait for it to happen 

;power off, timer off, clock on 

;go do it 

;wait about 1 . 7 sees for power-off 

;error if still on 



CHG023 
CHG023 



CHG003 



CHG003 
CHG003 
RMOOO 
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2E20I 
2E24I 
2E26I 
2E2AI 
2E2AI 
2E2AI 
2E2AI 
2E2AI 
2E2AI 
2E2AI 
2E30I 
2E34I 
2E38I 
2E3EI 
2E44I 
2E46I 
2E46I 
2E46I 
2E46I 
2E46I 
2E46I 
2E46I 
2E46I 
2E46I 
2E46I 
2E46I 
2E46I 
2E46I 
2E46I 
2E46I 
2E46I 
2E46I 
2E46I 
2E46I 
2E46I 
2E46I 
2E46I 
2E46I 
2E46I 
2E46I 
2E46I 
2E46I 
2E46I 
2E46I 
2E46I 
2E46I 
2E46I 



45FA 0B29 
7034 
6000 E798 



LEA 

MOVEQ 

BRA 



I0BRD,A2 

#EIOCOP,D0 

TSTXIT 



;set error code 

; display error and go back to levell monitor 



Subroutine to enable drives 



ENBLDRVS 



117C 0088 0002 
lOBC 0086 
6100 EFCE 
267C OOFC DD81 
08AB 0004 0004 
4E75 



MOVE.B #$88,CM)(A0) 

MOVE . B #ENBLINT , ( AO ) 

BSR CMDCHK 

MOVE . L #VIA1BASE , A3 

BCLR #FDIR,DDRB1(A3) 

RTS 



; enable both drives 



;and enable FDIR 



CHKPOSN 

Routine to check mouse position versus active rectangle table. 
If over a rectangle, inverts it and returns with its ID. 
If not over a rectangle, ensures all rectangles not inverted, and 
returns with DO = . 

Active rectangle table has following format: 

Word 1 : nioitiber of entries in table 

Word 2 : ID for first entry, MSB = 1 if inverted on screen 

Next 4 words contain X,Y pixel coordinates for upper left 

and bottom right corners 
Each successive entry follows same format, with 5 words per entry 

Register usage: 

AO = ptr to rectangle table 

DO = # of entries in table 

Dl = ID for current entry 

D2 = X-coordinate for upper left 

D3 = Y-coordinate for upper left 

D4 = X-coordinate for bottom right 

D5 = Y-coordinate for bottom right 

D6 = X-coordinate for current cursor location 

D7 = Y-coordinate for current cursor location 

On exit, DO = ID code of rectangle cursor is over or 
= if not over any rectangle 
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2E46 






2E46 


48E7 


7F80 


2E4A 


3C38 


0496 


2E4E 


3E38 


0498 


2E52 


41F8 


053A 


2E56 


3018 




2E58 


6742 




2E5A 


4C98 


003E 


2E5E 






2E5E 






2E5E 






2E5E 


BC42 




2E60 


6D0E 




2E62 


BC44 




2E64 


6E0A 




2E66 


BE43 




2E68 


6D06 




2E6A 


BE45 




2E6C 


6E02 




2E6E 


600E 




2E70 






2E70 






2E70 


4A41 




2E74 


6100 


004C 


2E78 


5340 




2E7A 


66DE 




2E7C 


601E 




2E7E 






2E7E 






2E7E 






2E7E 


4A41 




2E80 


6B18 




2E82 


6100 


003E 


2E86 






2E86 






2E86 






2E86 


5340 




2E88 


6710 




2E8A 


4A58 




2E8C 


6B04 




2E8E 


5048 




2E90 


60F4 




2E92 






2E92 


4C98 


003C 


2E96 


6100 


002A 


2E9A 






2E9A 







CHKPOSN MOVEM.L D1-D7/A0,- (SP) 



MOVE 


CrsrX,D6 


MOVE 


CrsrY,D7 


LEA 


RectTable,AO 


MOVE 


(AO)+,DO 


BEQ.S 


CHKPXIT 


GETNTRY MOVEM 


(A0)+,D1-D5 



;get current cursor location 

;set ptr to table 

;get count 

;exit if 

;else get entry (5 words) 



check if cursor over rectangle 



;CrsrX < upper left X? 

;branch if cursor to left of rectangle 

;CrsrX > bottom right X? 

; branch if cursor to right of rectangle 

;CrsrY < upper left Y? 

; branch if cursor above rectangle 

;CrsrY > bottom right Y? 

; branch if cursor below rectangle 

; cursor over this entry - go invert it 

check if inverted, then continue through table 
; entry inverted? 
;else go reinvert 
; decrement entry count 
; check next entry if not done 
;else exit with DO = 



over the rectangle - if not already, invert it and data saved 





CMP 


D2,D6 




BLT.S 


@1 




CMP 


D4,D6 




BGT.S 


@1 




CMP 


D3,D7 




BLT.S 


@1 




CMP 


D5,D7 




BGT.S 


@1 




BRA.S 


@3 


; not 


over this entry 


@1 


TST 


Dl 




BSR 


INVERT 


@2 


SUBQ 


#1,D0 




BNE.S 


GETNTRY 




BRA.S 


CHKPXIT 



@3 



TST 


Dl 


; already inverted? 


BMI.S 


@6 


;exit if yes 


BSR 


INVERT 


;go invert rectangle 



check if any other entries previously inverted 



@4 



@5 



SUBQ 


#1,D0 


BEQ.S 


@6 


TST 


(A0) + 


BMI.S 


@5 


ADDQ 


#8,A0 


BRA.S 


@4 


MOVEM 


(A0)+,D2-D5 


BSR 


INVERT 



;done? 

;skip if yes 

;else check next entry 

;skip if inverted 

;else hvaap to next entry 

;and continue loop 

;get coordinates 

;and go reinvert and then exit 

; since at most one rect inverted 
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2E9AI 
2E9CI 
2E9CI 
2EA0I 
2EA2I 
2EA2I 
2EA2I 
2EA2I 
2EA2I 
2EA2I 
2EA2I 
2EA2I 
2EA2I 
2EA2I 
2EA2I 
2EA2I 
2EA2I 
2EA2I 
2EA2I 
2EA2I 
2EA2I 
2EA2I 
2EA2I 
2EA2I 
2EA2I 
2EA2I 
2EA2I 
2EA2I 
2EA2I 
2EA2I 
2EA2I 
2EA2I 
2EA2I 
2EA6I 
2EAAI 
2EACI 
2EB0I 
2EB2I 
2EB4I 
2EB6I 
2EB8I 
2EBAI 
2EBAI 
2EBCI 
2EBCI 
2EC0I 
2EC2I 



3001 

4CDF OlFE 
4E75 



@6 MOVE D1,D0 ;set return code 

CHKPXIT MOVEM.L (SP) +,D1-D7/A0 



RTS 



;and exit 



CHKINPUT 

Routine to check keyboard input versus active rectangle table. 
If rectangle selected, inverts it and returns. 

Active rectangle table has following format: 

Word 1 : nioitiber of entries in table 

Word 2 : ID for first entry, MSB = 1 if inverted on screen 

Next 4 words contain X,Y pixel coordinates for upper left 

and bottom right corners 
Each successive entry follows same format, with 5 words per entry 

Register usage: 

AO = ptr to rectangle table 

DO = keyboard input 

Dl = ID for current entry 

D2 = X-coordinate for upper left 

D3 = Y-coordinate for upper left 

D4 = X-coordinate for bottom right 

D5 = Y-coordinate for bottom right 

D6 = # of entries in table 



48E7 7E80 

41F8 053A 

3C18 

4C98 003E 

B200 

6706 

5346 

66F4 

6002 

6106 

4CDF 017E 
4E75 



CHKINPUT 




MOVEM. 


L D1-D6/A0,-(SP) 


LEA 


RectTable,AO 


MOVE 


(A0)+,D6 


RDENTRY MOVEM 


(A0)+,D1-D5 


CMP.B 


D0,D1 


BEQ.S 


@1 


SUBQ 


#1,D6 


BNE.S 


RDENTRY 


BRA.S 


@2 



@1 



BSR.S INVERT 



@2 MOVEM.L (SP)+,D1-D6/A0 
RTS 



;set ptr to table 

;get covmt 

;get entry (5 words) 

; match with keyboard input? 

;skip if yes 

;else loop thru all entries 

;skip to exit 

;go invert rectangle 

; restore regs 
;and return 
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2EC2 






2EC2 






2EC2 






2EC2 






2EC2 






2EC2 






2EC2 






2EC2 






2EC2 






2EC2 






2EC2 






2EC2 






2EC2 






2EC2 






2EC2 


48E7 


F840 


2EC6 






2EC6 


6100 


0122 


2ECA 






2ECA 


0868 


0007 FFF6 


2ED0 






2ED0 


3004 




2ED2 


9042 




2ED4 


80FC 


0008 


2ED8 


3205 




2EDA 


9243 




2EDC 


5241 




2EDE 






2EDE 


93C9 




2EE0 


E64A 




2EE2 


D2C2 




2EE4 


785A 




2EE6 


C6C4 




2EE8 


D2C3 




2EEA 






2EEA 


0838 


0007 02A2 


2EF0 


6706 




2EF2 


D2FC 


005A 


2EF6 






2EF6 


5341 




2EF8 






2EF8 






2EF8 


74FF 




2EFA 


48E7 


E040 


2EFE 


6100 


022E 


2F02 






2F02 


4CDF 


0207 


2F06 







INVERT 

Routine to invert buttons, menu or icon. Computes upper left address, 
width and heigth of rectangle, then calls INVERSE and other routines 
as needed. 

Register inputs: D2 = upper left X-coordinate 
D3 = upper left Y-coordinate 
D4 = bottom right X-coordinate 
D5 = bottom right Y-coordinate 
AO = ptr to start of next entry in rectangle table 



INVERT MOVEM.L D0-D4/A1,- (SP) 
BSR CursorHide 
BCHG #7,-10 (AO) 



MOVE 


D4,D0 


SOB 


D2,D0 


DIVU 


#8, DO 


MOVE 


D5,D1 


SUB 


D3,D1 


ADDQ 


#1,D1 


SUBA.L 


A1,A1 


LSR 


#3,D2 


ADD 


D2,A1 


MOVEQ 


#MaxX/8,D4 


MULU 


D4,D3 


ADD 


D3,A1 


BTST 


#MENU,STATFLGS 


BEQ.S 


@0 


ADDA 


#R0WBYTES,A1 



SUBQ #1,D1 



@0 MOVEQ #-l,D2 

MOVEM.L D0-D2/A1,-(SP) 
BSR INVERSE 



; remove cursor 

;flip the invert bit indicator for entry 

; compute width 

; convert to bytes 

; confute height in pixel rows 

;bump by 1 to do bottom line also 

;use for upper left address 

; divide pixel colimm by 8 for bytes 

;add to address 

; bytes per row on screen 

; * pixel row 

; address of upper left corner 

; doing menu item? 

;skip if not 

;else add 1 scan line to avoid menu 

; bar line inversion 

;and deer length to avoid inverting bottom line 

; of menu box 

;set fill pattern 
;save args 
; invert it 



RMOOO 



MOVEM.L (SP)+,D0-D2/A1 ;restore args 
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2F06I 
2F0CI 
2F0EI 
2F12I 
2F14I 
2F14I 
2F1AI 
2F1CI 
2F20I 
2F20I 
2F24I 
2F24I 
2F28I 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 



0838 0006 02A2 
6706 

6100 03E8 
600C 

0838 0007 02A2 

6704 

6100 0424 

6100 OOEC 

4CDF 021F 
4E75 



@1 



@9 



BTST 


#BTN,STATFLGS 


; doing buttons? 


BEQ.S 


@1 


;skip if not 


BSR 


DRAWBOTN 


; redraw button 


BRA.S 


@9 


;and exit 


BTST 


#MENU,STATFLGS 


; doing menu? 


BEQ.S 


@9 


;skip if not 


BSR 


DRAWSIDES 


;just redraw sides 



BSR 

MOVEM.L 
RTS 

.PAGE 



CursorDisplay 
(SP)+,D0-D4/A1 



; redisplay cursor 

; restore regs 
;and return 



Hardware Interface for the Mouse 

Written by Rick ^feyers 
(c) i^ple Conputer Incorporated, 1983 

The routines below provide an assembly language interface to the mouse. 
Input parameters are passed in registers, output parameters are returned 
in registers. Unless otherwise noted, all registers are preserved. 

The Mouse 

The mouse is a pointing device used to indicate screen locations . Mouse 
coordinates are located between pixels on the screen. Therefore, the 
X-coordinate can range from to 720, and the Y-coordinate from to 364. 
The initial mouse location is 0,0. 

Mouse Scaling 

The relationship between physical mouse movements and logical mouse 
movements is not necessary a fixed linear mapping. Three alternatives 
are available: 1) unsealed, 2) scaled for fine movement and 3) scaled 
for coarse movement. 

When mouse movement is unsealed, a horizontal mouse movement of x units 
yields a change in the mouse X-coordinate of x pixels. Similiarly, a 
vertical movement of y units yields a change is the mouse Y-coordinate 
of y pixels . These rules apply independent of the speed of the mouse 
movement . 

When mouse movement is scaled, horizontal movements are magnified by 3/2 
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2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2AI 
2F2EI 
2F32I 
2F36I 
2F3AI 
2F3CI 
2F40I 
2F42I 
2F42I 
2F44I 
2F46I 



relative to vertical movements . This is intended to compensate for the 
2/3 aspect ratio of pixels on the screen. Hhen scaling is in effect, a 
distinction is made between fine (small) movements and coarse (large) 
movements. Fine movements are slightly reduced, while coarse movements 
are magnified. For scaled fine movements, a horizontal mouse movement of 
X units yields a change in the X-coordinate of x pixels, but a vertical 
movement of y units yields a change of (2/3) *y pixels . For scaled coarse 
movements, a horizontal movement a x units yields a change of (3/2) *x 
pixels, while a vertical movements of y units yields a change of y pixels. 

The distinction between fine movements and coarse movements is determined 
by the siom of the x and y movements each time the mouse location is 
updated. If this sum is at or below the 'threshold' , the movement is 
considered to be a fine movement. Values of the threshold range from 
(which yields all coarse movements) to 256 (which yields all fine 
movements) . Given the default mouse updating frequency, a threshold of 
about 8 (threshold's initial setting) gives a comfortable transition between 
fine and coarse movements . 



Mouse Movement 

This routine is called by the GETINPUT routine when the COPS has 
reported mouse movement. All registers are preserved. 



Register Assignments: 



48E7 7C00 
3038 0486 
3238 0488 
1438 048A 
4882 

1638 048B 
4883 

3802 
6C02 
4444 



Scale 



DO - 


- Mouse X 


-Coordinate 


(integer) 




Dl - 


- Mouse Y 


-Corrdinate 


(integer) 




D2 - 


- Mouse Dx (integer) 






D3 - 


- Mouse Dy (integer) 






i-ement 


MOVEM.L 


D1-D5,-(SP) 




save registers 




MOVE.W 


MousX,DO 




mouse X-coordinate 




MOVE.W 


MousY,Dl 




mouse Y- coordinate 




MOVE.B 


MdusDx,D2 




mouse Dx (byte) 




EXT.W 


D2 




mouse Dx (integer) 




MOVE.B 


MousDy,D3 




mouse Dy (byte) 




EXT.W 


D3 




mouse Dy (integer) 




MOVE.W 


D2,D4 




mouse Dx 




BGE.S 


@1 




branch if >= 




NEG.W 


D4 




ABS (mouse Dx) 
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2F48 




2F48 


3A03 


2F4A 


6C02 


2F4C 


4445 


2F4E 




2F4E 


D845 


2F50 


9878 048E 


2F54 


6E16 


2F56 




2F56 


D042 


2F58 


3403 


2F5A 


D643 


2F5C 


D643 


2F5E 


D642 


2F60 


5443 


2F62 


6D02 


2F64 


5643 


2F66 


E643 


2F68 


D243 


2F6A 


6010 


2F6C 




2F6C 


D243 


2F6E 


3602 


2F70 


D443 


2F72 


D443 


2F74 


6D02 


2F76 


5242 


2F78 


E242 


2F7A 


D042 


2F7C 




2F7C 


4A40 


2F7E 


6C02 


2F80 


4240 


2F82 




2F82 


0C40 02D0 


2F86 


6F04 


2F88 


303C 02D0 


2F8C 




2F8C 


4A41 


2F8E 


6C02 


2F90 


4241 


2F92 




2F92 


0C41 016C 


2F96 


6F04 


2F98 


323C 016C 


2F9C 




2F9C 


31C0 0486 



@1 



@2 



Fine 



@3 



Coarse 



@4 



Boionds 



@5 



@6 



@7 



@8 



MOVE.W 


D3,D5 


BGE.S 


@2 


NEG.W 


D5 


ADD.W 


D5,D4 


SUB.W 


MousThresh , D4 


BGT.S 


Coarse 


ADD.W 


D2,D0 


MOVE.W 


D3,D2 


ADD.W 


D3,D3 


ADD.W 


D3,D3 


ADD.W 


D2,D3 


ADDQ 


#2,D3 


BLT.S 


@3 


ADDQ 


#3,D3 


ASR.W 


#3,D3 


ADD.W 


D3,D1 


BRA.S 


Boionds 


ADD.W 


D3,D1 


MOVE.W 


D2,D3 


ADD.W 


D3,D2 


ADD.W 


D3,D2 


BLT.S 


@4 


ADDQ.W 


#1,D2 


ASR.W 


#1,D2 


ADD.W 


D2,D0 


TST.W 


DO 


BGE.S 


@5 


MOVE.W 


#0,D0 


CMP.W 


#MaxX,DO 


BLE.S 


@6 


MOVE.W 


#MaxX,DO 


TST.W 


Dl 


BGE.S 


@7 


MOVE.W 


#0,D1 


CMP.W 


#MaxY,Dl 


BLE.S 


@8 


MOVE.W 


#MaxY,Dl 


MOVE.W 


DO,MousX 



mouse Dy 
branch if >= 
ABS (mouse Dy) 

ABS(Dx) + ABS(Dy) 
- MouseThreshold 
branch if coarse movement 

new X-coordinate (scale 1) 
save Dy 
Dy*2 
Dy*4 
Dy*5 
(Dy*5)+2 

branch if negative 
(Dy*5)+5 

Dy*(5/8) with rounding 
new Y-coordinate (scale 5/8) 
continue 

new Y-coordinate (scale 1) 
save Dx 
Dx*2 
Dx*3 

branch if negative 
(Dx*3)+1 

Dx*(3/2) with rounding 
new X-coordinate (scale 3/2) 

new X-coordinate >= 
branch if >= 
minimimi X of 

new X-coordinate <= 720 
branch if <= 720 
maximimi X of 720 

new Y-coordinate >= 
branch if >= 
minimum Y of 

new Y-coordinate <= 364 
branch if <= 364 
maximum Y of 364 

update Mouse X-coordinate 
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2FA0I 
2FA4I 
2FA8I 
2FACI 
2FB0I 
2FB2I 
2FB2I 
2FB2I 
2FB2I 
2FB2I 
2FB2I 
2FB2I 
2FB2I 
2FB2I 
2FB8I 
2FBE| 
2FC4I 
2FC6I 
2FCAI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 



31C1 0488 
31C0 0496 
31C1 0498 
4CDF 003E 
4E75 



MOVE.W Dl,MousY 
MOVE.W D0,CrsrX 
MOVE.W Dl,CrsrY 
MOVEM.L (SP)+,D1-D5 
RTS 



update Mouse Y- coordinate 
also update cursor coordinates 

restore registers 
return 



Routine to initialize mouse handling 



Mouslnit 



31FC 0168 0486 
31FC 00B6 0488 
31FC 0008 048E 
707C 

6100 D98E 
4E75 



MOVE 


-W 


#360,MousX 


MOVE 


-W 


#182 ,MousY 


MOVE 
MOVE 


.W 
Q 


#8,MousThresh 
#$7C,D0 


BSR 




COPSCMD 


RTS 







set inital mouse location 

to center of screen 
set scaling threshold 
and enable mouse data 



Hardware Interface for the Cursor 

Written by Rick ^feyers 
(c) J^ple Con^suter Incorporated, 1983 



The routines below provide an assembly language interface to the cursor. 
Input parameters are passed in registers, output parameters are returned 
in registers. Unless otherwise noted, all registers are preserved. 

The Cursor 

The cursor is a small image that is displayed on the screen. It's shape 
is specified by two bitmaps, called 'data' and 'mask' . These bitmaps are 
16 bits wide and from to 32 bits high. The rule used to combine the 
bits already on the screen with the data and mask is 

screen <- (screen and (not mask)) xor data. 

The effect is that white areas of the screen are replaced with the cursor 
data. Black areas of the screen are replaced with (not mask) xor data. 
If the data and mask bitmaps are identical, the effect is to 'or' the data 
onto the screen. 

The cursor has both a location and a hotspot. The location is a position 
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2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FCCI 
2FD0I 
2FD4I 
2FDAI 
2FE0I 
2FE6I 
2FE8I 
2FEA| 
2FEA| 
2FEA| 
2FEA| 
2FEA| 
2FEA| 
2FEA| 
2FEA| 
2FEA| 
2FEA| 
2FEA| 
2FEA| 
2FEA| 
2FEA| 
2FEA| 
2FEA| 
2FEA| 
2FEA| 
2FEA| 
2FEA| 
2FEA| 
2FEA| 
2FEA| 
2FEA| 
2FEEI 



on the screen, with X-coordinates of to 720 and Y-coordinates of to 364 . 
The hotspot is a position within the cursor bitmaps, with X- and Y-coordi- 
nates ranging from to 16. The cursor is displayed on the screen with it's 
hotspot at location. If the cursor's location is near an edge of the screen, 
the cursor image may be partially or completely off the screen. 



Routine : Cursorlnit 
Arguments : None 

Function: Sets up the initial defaults used by the BCM cursor, 
position is set for center of the screen. 



Initial 



4278 0490 
4278 0492 
31FC 0010 0494 
31FC 0168 0496 
31FC 00B6 0498 
61CA 
4E75 



Cursorlnit 



MOVE.W 


#0,CrsrHotX 


; cursor hotspot X-coordinate 


MOVE.W 


#0,CrsrHotY 


; cursor hotspot Y-coordinate 


MOVE.W 


#16,CrsrHeight 


; cursor hieght, 0-32 


MOVE.W 


#360,CrsrX 


; initial cursor X-coordinate 


MOVE.W 


#182,CrsrY 


; initial cursor Y-coordinate 


BSR.S 


Mbuslnit 


; init mouse for cursor control 


RTS 




; return 



Cursor Hide and Display 

Care must be taken when updating the screen image which is 'under' the 
cursor. The simplest approach is to remove the cursor from the screen 
(hide) , do the screen modification, then redisplay the cursor (display) . 
Each hide operation must be followed by a corresponding display 
operation. The operations are paired and can be nested. The first of a 
series of hides removes the cursor from the screen; it's corresponding 
display redisplays the cursor. Intervening operations have no apparent 
effect . 



Routine : CursorHide 

Arguments : None 

Function: Remove the cursor from the screen. Note that every call to 

CursorHide must be followed by exactly one call to CursorDisplay . 



48E7 COCO 
41F8 04A2 



CursorHide MOVEM.L DO-Dl/AO-Al,- (SP) 
LEA SavedData , AO 



save registers 
saved data address 
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2FF2 


2278 


0528 


2FF6 


3038 


0526 


2FFA 


323C 


005A 


2FFE 


6004 




3000 






3000 


2298 




3002 


D2C1 




3004 


51C8 


FFFA 


3008 






3008 


4CDF 


0303 


300C 


4E75 




300E 






300E 






300E 






300E 






300E 






300E 






300E 






300E 






300E 






300E 






300E 






300E 






300E 






300E 






300E 






300E 






300E 






300E 






300E 






300E 






300E 






300E 






300E 






300E 


48E7 


FCFO 


3012 






3012 


41F8 


04A2 


3016 


2278 


0110 


301A 


45FA 


0900 


301E 


47FA 


08FC 


3022 


3038 


0490 


3026 


3238 


0492 


302A 


3838 


0494 


302E 






302E 






302E 


9078 


0496 


3032 


4440 





@1 

@2 



MOVE . L SavedAddr , Al 

MOVE . W SavedRows , DO 

MOVE.W #MaxX/8,Dl 

BRA.S @2 

MOVE.L (A0)+,(A1) 

ADD.W D1,A1 

DBF D0,@1 

MOVEM.L (SP)+,D0-D1/A0-A1 
RTS 



saved data screen address 
rows of saved data 
bytes per row on screen 
test of rows=0 

from saved to screen 
screen address of next row 
loop ' SavedRows ' times 

restore registers 
return 



Routine : CursorDisplay 
Arguments : none 

Function: Redisplay the cursor. Note that every call to CursorDisplay 
must be preceeded by exactly one call to CursorHide. 

Register Assignments: 

DO — saved data X-coordinate , cursor data 

Dl — saved data Y-coordinate , cursor mask 

D2 — left shift count 

D3 — 32 -bit mask 

D4 — rows of saved data 

D5 — bytes per row on screen 

AO — saved data address 

Al — saved data screen address 

A2 — cursor data address 

A3 — cursor mask address 



CursorDisplay MOVEM.L D0-D5/A0-A3,- (SP) ; save registers 

; saved data address 

; screen memory address 

; cursor data bitmap address 

; cursor mask bitmap address 

; cursor hotspot X-coordinate 

; cursor hotspot Y-coordinate 

; cursor height 

; Compute and bounds check the X-coordinate of the data under the cursor. 

@11 SUB.W CrsrX,DO ; cursor X-coordinate 

NEG.W DO ; - cursor hotspot X-coordinate 



LEA 


SavedData,AO 


MOVE.L 


ScrnBase ,A1 


LEA 


CrsrData,A2 


LEA 


CrsrMask,A3 


MOVE.W 


CrsrHotX,DO 


MOVE.W 


CrsrHotY,Dl 


MOVE.W 


CrsrHeight,D4 
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3034 


3400 




3036 


0242 


OOOF 


303A 


4442 




303C 


0642 


0010 


3040 


4283 




3042 


4643 




3044 


E5AB 




3046 






3046 


0240 


fkVO 


304A 


6C0A 




304C 






304C 


4240 




304E 


E18B 




3050 


E18B 




3052 


0642 


0010 


3056 






3056 


0C40 


02B0 


305A 


6F14 




305C 






305C 


0C40 


02D0 


3060 


6602 




3062 


7600 




3064 






3064 


303C 


02B0 


3068 


E08B 




306A 


E08B 




306C 


0642 


0010 


3070 






3070 






3070 






3070 


9278 


0498 


3074 


4441 




3076 


6C0C 




3078 






3078 


D841 




307A 


D241 




307C 


94C1 




307E 


96C1 




3080 


4241 




3082 


6010 




3084 






3084 


3A3C 


016C 


3088 


9A44 




308A 


B245 




308C 


6F0C 




308E 






308E 


383C 


016C 



@0 



@1 



@2 



@3 



upper left X-coordinate 
bit offset within word 
negated and converted to 
left shift count 
32-bit mask 
D3 = $0000FFFF 
shifted into position 

upper left X-coord rounded down 
branch if >= 

minimirai upper left X-coord of 
adjust 32 -bit mask 
adjust 32 -bit mask 
adjust left shift count 

upper left X-coord <= 720-32 
branch if <= 720-32 

cursor off right edge ? 
branch if not off right edge 
mask off all bits 

maximimi X-coord of 720-32 
adjust 32 -bit mask 
adjust 32 -bit mask 
adjust left shift count 

Compute and bounds check the Y-coordinate of the data under the cursor. 

cursor Y-coordinate 

- cursor hotspot Y-coordinate 
branch if upper left Y >= 

decrease rows of saved data 
doiable for byte count 
increase cursor data address 
increase cursor mask address 
minimum upper left Y of 
continue 

maximum Y-coordinate 

- cursor height 
cursor bottom <= 364-CrsrHeight 
branch if <= 364-CrsrHeight 

last row on screen 



MOVE.W 


D0,D2 


AND.W 


#$000F,D2 


NEG.W 


D2 


ADD.W 


#16, D2 


CLR.L 


D3 


NOT 


D3 


LSL.L 


D2,D3 


AND.W 


#$FFF0,D0 


BGE.S 


@0 


MOVE.W 


#0,D0 


LSL.L 


#8,D3 


LSL.L 


#8,D3 


ADD.W 


#16, D2 


CMP.W 


#MaxX-32,D0 


BLE.S 


@2 


CMP.W 


#MaxX,DO 


BNE.S 


@1 


MOVEQ 


#0,D3 


MOVE.W 


#MaxX-32,D0 


LSR.L 


#8,D3 


LSR.L 


#8,D3 


ADD.W 


#16, D2 



RMOOO 
RMOOO 



SUB.W 


CrsrY,Dl 


NEG.W 


Dl 


BGE.S 


@3 


ADD.W 


D1,D4 


ADD.W 


D1,D1 


SUB.W 


D1,A2 


SUB.W 


D1,A3 


MOVE.W 


#0,D1 


BRA.S 


@4 


MOVE.W 


#MaxY,D5 


SUB.W 


D4,D5 


CMP.W 


D5,D1 


BLE.S 


@5 


MOVE.W 


#MaxY,D4 
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3092 


9841 




3094 






3094 


4A44 




3096 


6C02 




3098 


4244 




309A 






309A 


3 ICO 


0522 


309E 


31C1 


0524 


30A2 


31C4 


0526 


30A6 






30A6 






30A6 






30A6 


E648 




30A8 


D2C0 




30AA 


7A5A 




30AC 


C2C5 




30AE 


D3C1 




30B0 


21C9 


0528 


30B4 


6016 




30B6 






30B6 


301A 




30B8 


E5B8 




30BA 


C083 




30BC 


321B 




30BE 


E5B9 




30C0 


C283 




30C2 


4681 




30C4 






30C4 


20D1 




30C6 


C391 




30C8 


B191 




30CA 


D2C5 




30CC 


5 ICC 


FFE8 


30D0 






30D0 


4CDF 


0F3F 


30D4 


4E75 




30D6 






30D6 






30D6 






30D6 






30D6 






30D6 






30D6 






30D6 






30D6 






30D6 






30D6 







SUB.W D1,D4 

@4 TST.W D4 

BGE.S @5 

MOVE.W #0,D4 

@5 MOVE.W DO,SavedX 

MOVE.W Dl,SavedY 

MOVE . W D4 , SavedRows 

; Display the cursor on the screen. 



@6 



@7 



LSR.W 


#3, DO 


ADD.W 


D0,A1 


MOVEQ 


#MaxX/8,D5 


MULU 


D5,D1 


ADD.L 


D1,A1 


MOVE.L 


Al , SavedAddr 


BRA.S 


@7 


MOVE.W 


(A2)+,D0 


ROL.L 


D2,D0 


AND.L 


D3,D0 


MOVE.W 


(A3) + ,D1 


ROL.L 


D2,D1 


AND.L 


D3,D1 


NOT.L 


Dl 


MOVE.L 


(A1),(A0) + 


AND.L 


D1,(A1) 


EOR.L 


D0,(A1) 


ADD.W 


D5,A1 


DBF 


D4,@6 



MOVEM.L (SP)+,D0-D5/A0-A3 
RTS 



adjust rows of saved data 

rows of saved data >= ? 

branch if >= 

minimum rows of saved data 

saved data X- coordinate 
saved data Y- coordinate 
rows of saved data 



convert X-coord to bytes 
and add to screen address 

bytes per row on screen 
* Y-coord 
added to screen address 

saved data screen address 

test for rows=0 

cursor data 

shift to proper bit position 

eliminate unwanted bits 

cursor mask 

shift to proper bit position 

eliminate unwanted bits 

invert cursor mask 

from screen to saved data 
screen and (not mask) 

xor cursor data 
screen address of next row 
loop ' SavedRows ' times 

restore registers 
return 



.ENDC 

.IF AAPL = 1 

.ENDC 

.IF AAPL = 1 

.ENDC 

.ENDC 



.INCLUDE RM248.G.TEXT 



; {USERINT} 
; {USERINT} 

; {RCM4K} 
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30D6I 
30D6I 
30D6I 
30D6I 
30D6I 
30D6I 
30D6I 
30D6I 
30D6I 
30D6I 
30D6I 
30D6I 
30D6I 
30D6I 
30D6I 
30D6I 
30D6I 
30D6I 
30D6I 
30D6I 
30D6I 
30D6I 
30D6I 
30D6I 
30D6I 
30D6I 
30D6I 
30D6I 
30D6I 
30D6I 
30D6I 
30D8I 
30DAI 
30DAI 
30DAI 
30DAI 
30DCI 
30DEI 
30E2I 
30E4I 
30E6I 
30E6I 
30E6I 
30E6I 
30E6I 
30E6I 
30EAI 



.PAGE 

.IF EXTERNAL = 1 
.IF USERINT = 1 
********************************** 

Mini-Graphics Package * 

Contributed by Mike Urquhart * 

Copyright 1983, 1984 i^ple * 

********************************** 



DRAWDESK: 

this routine performs the following sequences : 

1 . clears the screen to a white background . 

2 . makes a menu bar by drawing a single pixel horizontal 
line across the screen. 

3. fills the screen area below the menu bar with the stantard 
gray shade. 

Also has an entry point called CLRDESK that only does item (3) . 

Destroys regs D0-D2,A1,A5-A6 



DRAWDESK 



4282 
612E 



705A 
74FF 

327C 05A0 
7201 
6142 



1 . clear screen to white background 

clr.l d2 

bsr . s whiten 

2 . make menu bar border 



CLRDESK moveq #ROWBYTES,dO 

moveq #-l,d2 

move.w #MENULINE,A1 

moveq #l,dl 

bsr . s paint_box 



;set length of line = 90 bytes 
;draw a black pattern 
; start at offset 1440 address 
;draw only 1 pixel line 



set a6 to starting pixel address for grey routine below 
set a5 to limit 



3C7C 05FA 
3A7C 7FF8 



move #DESKLINE,a6 
move #DESKLMT,a5 



;set limit 
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30EEI 
30EEI 
30EEI 
30EEI 
30EEI 
30EEI 
30EEI 
30EEI 
30F4I 
30F4I 
30F6I 
30F8I 
30FAI 
30FEI 
30FE| 
31001 
31021 
31041 
31061 
31061 
31061 
31061 
31061 
31061 
31061 
31061 
31061 
31061 
31061 
31061 
31061 
31061 
31061 
31061 
31061 
31061 
31061 
31061 
31061 
31061 
31061 
31081 
31081 
31081 
310CI 
310EI 
31101 



243C AAAA 5555 

4842 
7201 
224E 
6100 002C 

DCCO 
BCCD 
6DF0 
4E75 



3. make the grey background: to make the gray background, alternating 
rows of $5555 and $AAAA starting with $AAAA are written to the 
screen area. 



gray MOVE.L #DESKPATRN,D2 ;set up grey pattern 



grayl 



@1 



swap 
moveq 
move.l 
bsr 

add 
cicip . w 
blt.s 
rts 



d2 

#l,dl 
a6,al 
paint_box 

d0,a6 
a5,a6 
grayl 



; start with the $AAAA pattern 

;draw a one pixel high line 

; starting pixel address must be in al for call 



;buirp to next pixel line 
;is a6 less then max? 

;loop if yes 

;else done 



subroutine blacken and whiten: clears full screen to black or white 



Calls : bsr 



blacken 



(no parameters) 



clr.l d2 
bsr whiten 



registers used: 



d2 . 1 - contains either FFFFFFFF or on return 
dO.b - destroyed but contains $5A (90) on return 
dl.w - destroyed — >should contain on return 
al.l - destroyed 



This routine calls paint_box, so other registers may be destroyed. 



BLACKEN 



74FF 



323C 016B 
705A 
93C9 
6116 



whiten 



moveq #-l,d2 



move . w #MaxY- 1 , dl 

moveq #ROWBYTES,dO 

suba.l A1,A1 

bsr . s paint_box 



;black fill pattern 



/nioitiber of pixels in screen box heigth 
/length of screen box is 90 bytes 
/clear Al 
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31121 
31141 
31141 
31141 
31141 
31141 
31141 
31141 
31141 
31141 
31141 
31141 
31141 
31181 
311AI 
311CI 
311EI 
31201 
31221 
31261 
31281 
31281 
31281 
31281 
31281 
31281 
31281 
31281 
31281 
31281 
31281 
31281 
31281 
31281 
31281 
31281 
31281 
31281 
31281 
31281 
31281 
31281 
31281 
31281 
31281 
31281 
31281 



4E75 



rts 



Subroutine to clear only menu bar on desktop 
Inputs : 

None 
Outputs : 

None 
Side Effects: 

None 



48E7 E040 

705A 

7210 

7400 

93C9 

6106 

4CDF 0207 

4E75 



CLRMENU MOVEM.L D0-D2/A1,- (SP) 
MOVEQ #ROWBYTES , DO 
MOVEQ #MBARLEN,D1 
MOVEQ #0,D2 
SUBA.L A1,A1 
BSR.S PAINT_BOX 
MOVEM.L (SP)+,D0-D2/A1 
RTS 



;save regs 

;width of menu bar is 90 bytes 

;heigth is 15 pixels 

;set fill pattern 

; upper left corner is at offset 

;go do it 

; restore and 

; exit 



Routine paint_box 

Call : BSR paint_box 
or 

BSR paintb2 

register setup: 

D2 must contain a one word fill pattern. 

DO must contain the width of the box (horizontally) or the length of 

the line. 
Dl must contain the heigth (vertically of the box) in horizontal pixel 

rows: 
Al must contains the screen displacement in the range 0. .32670 



fill pattern 



. <- 



-heigth in pixels 



length horizontally 



Assumptions: location SCRNBASE contains the video address 
registers used — >D0-D3,A0-A2 
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31281 
31281 
31281 
31281 
31281 
31281 
312CI 
312EI 
312EI 
31321 
31361 
31361 
31361 
31381 
31381 
31381 
313AI 
313CI 
313EI 
313EI 
313EI 
313EI 
313EI 
313EI 
313EI 
31441 
31441 
31441 
31461 
31481 
31481 
31481 
31481 
31481 
31481 
314AI 
314AI 
314AI 
314CI 
314EI 
314EI 
314EI 
31501 
31501 
31521 
31541 
31561 



49FA 0020 
6004 

49FA OOIE 
D3F8 0110 



2F0A 



PAINT_BOX 

paintbl lea movinst,A4 

bra . s cont 

inverse lea exclusive, A4 

cont ADD . L SCRNBASE , Al 



paintb2 



4283 
3600 
4483 



MOVE.L A2,-(SP) 
do some setup steps 

CLR.L D3 
MOVE.W D0,D3 
NEG.l D3 



;add video address to starting pixel address offset. 



;save reg 



; clear for use 

; modify width/length 

; negate the width/length (D3 = -width/length) 



0683 0000 005A 



2449 
D5C0 



add the length of one horizontal pixel row-2 to the -width/length 
to derive an offset which can be added to the updated address pointer 
(when it reflects the right corner or end point of the box/line) 
in order to arrive at the next row starting address. 

ADDI.l #R0nBYTES,D3 ; create displacement for following sequence 



MOVE.L A1,A2 
ADD.L D0,A2 



; create ending column check address 

;add length of line to obtain ending colvimn address 



Al now points to the left top coordinate of the box or line. 
A2 now points to the right top coordinate of the box or line. 



startop 



4ED4 



32C2 
6002 



B559 

B5C9 
6702 
60F2 



3itp 



(A4) 



movinst 



MOVE.W D2,(A1)+ 

bra . s compare 

exclusive 

eor.w D2,(A1)+ 

compare CMP.L A1,A2 

BEQ . S nextline 

BRA.S startop 



; execute the correct operation (EOR or MOVE) 
; start the sequence 



; reached the right most point? 
;yes 
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31561 
31561 
31561 
31561 
31581 
315CI 
315EI 
31601 
31601 
31621 
31641 
31641 
31641 
31641 
31641 
31641 
31641 
31661 
31681 
31681 
31681 
31681 
31681 
31681 
31681 
31681 
31681 
31681 
316CI 
316CI 
316EI 
31741 
31781 
317AI 
317AI 
317EI 
31801 
31801 
31801 
31801 
31801 
31801 
31801 
31801 
31801 
31801 
31841 



YES 



nextline 



D3C3 

D4FC 005A 
5341 
66E8 

245F 
4E75 



ADD.L D3,A1 

ADDA #ROWBYTES , A2 

SUBQ.W #1,D1 

BNE . S star top 

MOVE.L (SP)+,A2 
RTS 



;add 1 horizontal line length (5A) minus line length 
;to reacdi the left most point of the box on the 
;next horizontal scan line. 
;loop until done. 

; restore and 
; return 



RMOOO 



Entry point to set cursor ptrs and make alert box for power cycling 



7A59 
7C0C 



MAKEPCALRT 

MOVEQ #PCR0W,D5 
MOVEQ #PCC0L,D6 



;set row ptr 
;and col ptr 
;then drop into alert box routine 



MAKEALERT 

This routine creates an alert box with no title. 



48E7 C040 

704E 

223C 0000 00A4 

327C 1140 

616C 

4CDF 0203 
4E75 



MAKEALERT 

movem.l dO-dl/al,- (sp) 

MOVEQ #ALRTWIDTH,DO 

MOVE . L #ALRTHIGH , Dl 

MOVEA #ALRTSTRT , Al 

bsr . s makebox 

movem.l (sp)+,dO-dl/al 
rts 



;set parameters for box 



MAKETEST 



This routine creates an alert box for test icon display. 



MAKETEST 



48E7 C040 



movem.l dO-dl/al,- (sp) 
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3184 


7046 




3186 


7254 




3188 


327C 


1144 


318C 


6158 




318E 






318E 


7A40 




3190 


7C0E 




3192 


47FA 


0CA6 


3196 


72FF 




3198 


6100 


049A 


319C 






319C 


6100 


03EA 


31A0 


6100 


03FA 


31A4 


6100 


03EC 


31A8 


6100 


03FC 


31AC 






31AC 


4CDF 


0203 


31B0 


4E75 




31B2 






31B2 






31B2 






31B2 






31B2 






31B2 






31B2 






31B2 






31B2 






31B2 


48E7 


C040 


31B6 






31B6 


7042 




31B8 


7214 




31BA 


327C 


071E 


31BE 


6126 




31C0 






31C0 


4CDF 


0203 


31C4 


4E75 




31C6 






31C6 






31C6 






31C6 






31C6 






31C6 






31C6 






31C6 






31C6 






31C6 






31C6 







MOVEQ 


#TSTWWIDTH,DO 


MOVEQ 


#TSTWHIGH,D1 


MOVEA 


#TSTWSTRT,A1 


BSR.S 


MAKEBOX 


MOVEQ 


#TSTMR0W,D5 


MOVEQ 


#TSTMC0L,D6 


LEA 


CHKMSG,A3 


MOVEQ 


#-l,Dl 


BSR 


DSPSTRING 


BSR 


DSPCPU 


BSR 


DSPIOB 


BSR 


DSPMBRD 


BSR 


DSPXCRD 



;set parameters for alert box 

;go draw box 

;set cursor ptrs 

;set message ptr 
/append ' . . . ' string 
;and go display it 

/display test icons 



movem.l (sp)+,dO-dl/al 
rts 



MAKEDBOX 



This routine creates a dialog box. 



MAKEDBOX 



movem.l dO-dl/al,- (sp) 

MOVEQ #DBOXWIDTH,D0 

MOVEQ #DB0XHIGH,D1 

MOVEA #DBOXSTRT , Al 

bsr . s makebox 

movem.l (sp)+,dO-dl/al 
rts 



;set parameters for dialog box 



routine makewindow 



Call: 



This routine creates a fixed window of the folder type. 
The calling routine must provide the address of the 
string which will be used to fill in the title box. 



move <window width>,dO 
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31C6I 
31C6I 
31C6I 
31C6I 
31C6I 
31C6I 
31C6I 
31C6I 
31C6I 
31C6I 
31C6I 
31CAI 
31CAI 
31CCI 
31CCI 
31CCI 
31CCI 
31CCI 
31CCI 
31CCI 
31CEI 
31D2I 
31D4I 
31D6I 
31DAI 
31DAI 
31DCI 
31E0I 
31E0I 
31E4I 
31E6I 
31E6I 
31E6I 
31E6I 
31E6I 
31E6I 
31E6I 
31E6I 
31E6I 
31E6I 
31E6I 
31E6I 
31E6I 
31E6I 
31E6I 
31E6I 
31E6I 



; move 


<window heigth>,dl 


; move 


<upper left corner address>,al 


lea 


<string address>,a3 


bsr 


makewindow 


; This routine 


calls makebox 



48E7 C040 
611A 



MAKEWINDOW 

movem.l dO-dl/al,- (sp) 

bsr . s makebox 



now draw the title box by drawing a single black line across 
the width of the window about 17 pixels from the top edge 



2F09 

D2FC 05A0 
7201 
74FF 
6100 FF50 

225F 
6100 OlDA 

4CDF 0203 
4E75 



MOVE.L A1,-(SP) 

add.w #MENULINE,al 

moveq #l,dl 

moveq #-l,d2 

bsr . s paint_box 

MOVE.L (SP)+,A1 

bsr writetitle 



;save start point 

;set heigth of one pixel 

; restore start point 



movem.l (sp)+,dO-dl/al ; restore and return 
rts 



Routine makebox ; 



This routine creates a window of either the folder type 
or the dialog box type. Is is the responsibility of 
the calling process to append the title box and title 
to the window if it is the folder type. 



Call: 



move.w <window width>,dO 

move.w <window heigth>,dl 

move . w <startingpixeladdress> , al 

bsr makebox 

registers used: dO,dl,d2,d3,d4,al,a2 



(range 0..90) even 
(range 0. .364) 
(range 0. .32670) 



Computer Boot ROM 2.48 Listing • 209 of 265 



31E6I 
31E6I 
31E6I 
31E6I 
31E6I 
31E6I 
31E6I 
31E6I 
31E6I 
31E6I 
31E6I 
31E6I 
31EAI 
31EEI 
31EEI 
31F0I 
31F4I 
31F4I 
31F4I 
31F4I 
31F4I 
31F4I 
31F4I 
31F4I 
31F4I 
31F6I 
31F8I 
31F8I 
31F8I 
31F8I 
31FAI 
31FCI 
32001 
32001 
32001 
32001 
32021 
32041 
32061 
320AI 
320AI 
320AI 
320AI 
320EI 
32121 
32141 
32181 



MAKEBOX 



make the basic window >no edges 



D2 must be set to on call 

dO must be set to the width (90 maximvim) 

dl must be set to the heigth (364 maximum) 

Al must be the offset address (0.. 32670) 



48E7 F878 
48E7 C040 

4282 
6100 FF36 



movem. 1 d0-d4/al-a4 , - (sp) 

movem.l dO-dl/al,- (sp) ;save the heigth and the starting pixel address 



clr.l d2 

bsr paint_box 



;the pattern 



now draw the individual edges including the shadow edges on the right 
and bottom of the window 



draw bottom horizontal edge 



93C3 
93C0 



7201 
74FF 
6100 FF38 



5449 
7201 
5540 
6100 FF2E 



4CDF 0203 
48E7 4040 
7201 
6100 FF12 



sub.l 
sub.l 



d3,al 
dO,al 



moveq #l,dl 
moveq #-l,d2 
bsr paintb2 



;al is currently equal to the lower right point 
; of the box so we can subtract the width to 
; calculate the lower left point of the box. 

;set 1 pixel heigth 

;set the line pattern 

; remember a4 is set up to point to the move.w 

; instruction 



@1 



@2 



draw bottom horizontal shadow 

addq #2,al ; shadow begin offset by 2 

moveq #l,dl ;draw a one pixel line 

subq #2,d0 

bsr paintb2 ;go 

draw top horizontal edge 

movem.l (sp)+,dO-dl/al ;restore original parameters 

movem.l dl/al,-(sp) 

moveq #l,dl ;draw a 1 pixel line 

bsr paint box 
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32181 
32181 
32181 
32181 
321CI 
321EI 
32201 
32221 
32241 
32241 
32261 
32281 
322AI 
322AI 
322EI 
32301 
32321 
32341 
32341 
32381 
323AI 
323CI 
323EI 
32401 
32401 
32401 
32401 
32401 
32421 
32461 
32481 
324AI 
324EI 
324EI 
32501 
32521 
32541 
32581 
32581 
325AI 
325AI 
325AI 
325AI 
325AI 
325AI 
325AI 
325AI 



4CDF 0410 

7401 

5544 

5540 

D3C0 

2204 
4280 
6130 

303C 00B6 
7407 
2204 
6136 

303C 0110 

7406 

2204 

5341 

612A 



224A 

D3F8 0110 
705A 
D3C0 
343C 8000 

2204 
4280 
6106 
4CDF lElF 

4E75 



now draw the right edge plus the right edge's shadow, use al 
with a colvimn parameter of 

movem.l (sp)+,d4/a2 
moveq #l,d2 
subq #2,d4 
subq #2,d0 
add.l dO,al 



move .1 d4 , dl 

clr.l dO 

bsr . s paint_v 

move.w #182, dO 

moveq #7,d2 

move .1 d4 , dl 

bsr . s paintbit 

move.w #272, dO 

moveq #6,d2 

move .1 d4 , dl 

subq #l,dl 

bsr . s paintbit 



;set one byte offset from right edge 
;draw first pixel line of the right shadow 

; reduce heigth by 1 to compensate for shadow offset 



now draw the left vertical edge of the box 



move .1 a2 , al 

add.l SCBMBASE,al 

moveq #90, dO 

add.l dO,al 

move #32768,d2 



; restore the starting pixel address 
;add in video address 



;set the pattern 



move .1 d4 , dl 

clr.l dO 

bsr . s paint_v 

movem .1 ( sp) + , d0-d4/al-a4 

rts 



;the heigth minus two 
; column offset 



















; Routine paint 


_v 












This 


routine 


'paints" 


a 


vertical 


colimm 


one 


word wide. 


Call 


BSR 


paint_ 


v 
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325AI 
325AI 
325AI 
325AI 
325AI 
325AI 
325AI 
325AI 
325AI 
325AI 
325AI 
325AI 
325AI 
325AI 
325AI 
325AI 
325AI 
325AI 
325AI 
325EI 
32601 
32621 
32661 
32681 
32681 
326AI 
326AI 
326AI 
326AI 
326AI 
326AI 
326AI 
326AI 
326AI 
326AI 
326AI 
326AI 
326AI 
326AI 
326AI 
326AI 
326AI 
326AI 
326AI 
326AI 
326AI 
326AI 



register setup: 

Al must contain the screen base address. 

D2 must contain a one word pattern. 

Dl must contain the number of pixels in the vertical length of the line 

in the range 1..364 
DO must contain the screen word column in the range . . 44 

Assumptions: location SCPNBASE contains the video address 

registers used: DO-Dl 



3382 0000 
5341 
6706 

0640 005A 
60F2 

4E75 



PAINT_V 
paintvl 




@1 MOVE.W 
SUBQ.W 
BEQ.S 
ADDI.W 
BRA.S 


D2,0(A1,D0.W) 

#1,D1 

@2 

#ROWBYTES,D0 

@1 



@2 



RTS 



; write to screen 

; decrement count 

; return 

;buirip to next horizontal line 

;loop to continue writing vertical. 

; return 



Routine paintbit 

This routine "paints" a vertical line one bit wide. 

Call : BSR paintbit 
register setup: 

Al must contain the screen base address. 

D2 must contain the bit nimiber to set 

Dl must contain the number of pixels in the vertical length of the line 

in the range 1..364 
DO must contain the screen word column in the range . . 44 

Assumptions: location SCRNBASE contains the video address 

registers used: DO-Dl 



PAINTBIT 
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326AI 
326AI 
326EI 
32701 
32721 
32721 
32761 
32781 
32781 
327AI 
327AI 
327AI 
327AI 
327AI 
327AI 
327AI 
327AI 
327AI 
327AI 
327AI 
327AI 
327AI 
327AI 
327AI 
327AI 
327AI 
327AI 
327AI 
327AI 
327AI 
327AI 
327AI 
327AI 
327AI 
327AI 
327AI 
327AI 
327AI 
327AI 
327AI 
327EI 
32821 
32841 
32881 
328AI 
328CI 
32901 



05F1 0000 

5341 

6706 

0640 005A 
60F2 

4E75 



@1 bset d2,0(al,d0.w) 

subq.w #l,dl 

beq.s @2 

addi.w #ROWBYTES,dO 

bra.s @1 

@2 RTS 



; subtract one from heigth 
;done 

; increment to next pixel row. 



; return 



Routine makebutton 



Call: 



move.w 
move.b 
lea 

move . 1 
<set dl for 



-> creates a black lined box of the size 
specified by the parameters with button 
"label" and description if specified. 
Also makes entries in active rectangle 
table for later use with mouse. 

the left top comer is addressed by al, 

the alternate keycode is contained in dO . 

the description is in A3 . 

description location is in A2 . 

' . . . ' string appended to message if dl nonzero 



<left/top corner point>,al 
<alternate keycode>,dO 
<button description>,a3 
<description location>,a2 



string> 



bsr 



makebutn 



Destroys regs D0-D2,D5,D6,A3 



48E7 4020 
45F8 053A 
3412 

C4FC 0005 
D442 
525A 

3580 2000 
6100 F488 



MAKEBUTN 




MOVEM 


L D1/A2,-(SP) 


LEA 


RectTable,A2 


MOVE 


(A2) ,D2 


MULU 


#5,D2 


ADD 


D2,D2 


ADDQ 


#1,(A2)+ 


MOVE 


D0,0(A2,D2.W) 


BSR 


KeyToAscii 



;save string indicator and location ptr 

;get ptr to active rect table 

;get current count of rect's 

;five entries per rect 

;doiable for word index 

;incr for new rect 

;save keycode id for new rect 

; convert keycode to Ascii 
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3294 


3800 




3296 






3296 






3296 






3296 


6100 


016E 


32 9A 


CCFC 


0008 


32 9E 


3586 


2002 


32A2 


3585 


2004 


32A6 






32A6 


700A 




32A8 


721C 




32AA 


614C 




32AC 






32AC 


2F09 




32AE 


3278 


052C 


32B2 


6100 


0152 


32B6 


CCFC 


0008 


32BA 


3586 


2006 


32BE 


3585 


2008 


32C2 


225F 




32C4 






32C4 






32C4 






32C4 


48E7 


F870 


32C8 


E288 




32CA 


6100 


013A 


32CE 






32CE 


DC80 




32D0 






32D0 


E289 




32D2 


5981 




32D4 


DA81 




32D6 






32D6 


5346 




32D8 


4240 




32DA 


6100 


045E 


32DE 


2004 




32E0 


6100 


0458 


32E4 






32E4 


4CDF 


OEIF 


32E8 


4CDF 


0402 


32EC 






32EC 


224A 




32EE 


6100 


0116 


32F2 


6100 


0340 


32F6 






32F6 


4E75 





MOVE D0,D4 ;save for later display 

conpute X,Y pixel coordinates from starting address 

;get pixel row, byte col 
; convert to pixel col 
;save upper left X 
; and Y coordinates 

;set button parameters 

;draw the button 

;save original val 

; compute lower right coordinates 

;get pixel row 

;and pixel col 

;save as X and 

; Y coordinates 

; restore starting value 

Add the button label and description 



BSR 


GETROWCOL 


MULU 


#8,D6 


MOVE 


D6,2(A2,D2.W) 


MOVE 


D5,4(A2,D2.W) 


MOVEQ 


#BTNWIDTH,DO 


MOVEQ 


#BTNHIGH,D1 


BSR.S 


DRAWBUTN 


MOVE.L 


A1,-(SP) 


MOVE 


LwrRight,al 


BSR 


GETROWCOL 


MULU 


#8,D6 


MOVE 


D6,6(A2,D2.W) 


MOVE 


D5,8(A2,D2.W) 


MOVE.L 


(SP)+,A1 



movem.l d0-d4/al-a3,- 

Isr.l #l,dO 

bsr getrowcol 

add.l d0,d6 

Isr.l #l,dl 

subq.l #4,dl 

add.l dl,d5 

SUBQ #1,D6 

CLR DO 

BSR DSPVAL 

MOVE.L D4,D0 

bsr dspval 



movem.l (sp)+,d0-d4/al-a3 
MOVEM.L (SP)+,D1/A2 



(sp) ;save parameters 
; divide window width 

;get the row and column coordinate of 
;the window corner point 
; adjust colvimn pointer 



; divide window heigth 

; decrement by half font heigth 

; adjust row coordinate 



;go back 1 and 

; display apple icon 

;get char to display 

;and go display alternate keycode 

/retrieve parameters 

/retrieve location and string indicator 



MOVE.L 

BSR 

BSR 

RTS 



A2,A1 

GETROWCOL 

DSPSTRING 



;caacput& output pt for description 
;and display it 
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32F8I 
32F8I 
32F8I 
32F8I 
32F8I 
32F8I 
32F8I 
32F8I 
32F8I 
32F8I 
32F8I 
32F8I 
32F8I 
32F8I 
32F8I 
32F8I 
32F8I 
32F8I 
32F8I 
32F8I 
32F8I 
32F8I 
32F8I 
32F8I 
32F8I 
32F8I 
32F8I 
32FCI 
32FCI 
32FCI 
32FCI 
32FCI 
32FCI 
32FEI 
33001 
33041 
33041 
33041 
33041 
33061 
33061 
33061 
33061 
33061 
33061 
33061 
330AI 



Routine drawbutton 



-> creates a black lined box of the size 
specified by the parameters . 

the left top corner is addressed by al, 
the width is indicated by dO . 
the heigth is indicated by dl . 



this routine calls paint_box, and paintbit. 



inputs : 



dO=window width in bytes (should be even) 
dl=heigth in pixels 
al=window left/ top corner point as a 
0.. 32670 screen offset address. 



Call: 



move.w <left/top corner point>,al 

move.w <button width>,dO 

move.w <button height>,dl 

bsr drawbutn 



DRftWBUTN 



48E7 F870 



movem.l d0-d4/al-a3,- (sp) /stack the argimients 



draw the top edge of the button 



74FF 
7201 
6100 FE26 



93C3 



moveq #-l,d2 
moveq #l,dl 
bsr paint_box 



;set the black bit pattern for paint_box 
;set a 1 pixel line 



draw the right vertical edge of the button 



sub .1 d3 , al 



222F 0004 
4280 



move.l 4 (sp) ,dl 
clr.l dO 



;on return from paint_box, al points to the 
;real address of the left point of the next 
/horizontal pixel line of the button, so d3, 
/which contains the displacement to the prior 
/lines right edge is added to the 
/left point to obtain the correct 
/address for the right edge, 
/momentarily restore the heigth 
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330C 


7407 




330E 


6100 


FF5A 


3312 






3312 






3312 






3312 


22 6F 


0014 


3316 


D3F8 


0110 


331A 






331A 


222F 


0004 


331E 


4280 




3320 


7407 




3322 


6100 


FF46 


3326 






3326 






3326 






3326 






3326 


D3C0 




3328 






3328 


2017 




332A 


7201 




332C 


74FF 




332E 


6100 


FE06 


3332 






3332 






3332 






3332 


93C3 




3334 


93F8 


0110 


3338 


31C9 


052C 


333C 


4CDF 


OEIF 


3340 


4E75 




3342 






3342 






3342 






3342 






3342 






3342 






3342 






3342 






3342 






3342 






3342 






3342 






3342 


48E7 


C040 


3346 






3346 






3346 






3346 


D3F8 


0110 



moveq #7,ci2 ;set the 1 bit mask for paintbit 

bsr.s paintbit ;draw the right edge 



now draw the left edge of the button 

move.l 20(sp),al ; restore the original comer point 

add.l SCBNBASE,al ;add in the screen window address 



move.l 4 (sp) ,dl 

clr.l dO 

moveq #7,d2 

bsr . s paintbit 



; restore the heigth 

;set the 1 bit mask for the left edge 



now draw the bottom edge of the button 



add.l dO,al 

move.l (sp) ,dO 

moveq #l,dl 

moveq #-l,d2 

bsr paintb2 



;add the displacement to the corner point to arrive 

;at the correct address of the bottom left corner 

; restore the width 

; set the heigth at 1 . 

;set the line pattern to black 



done - save lower right coordinate 

sub.l d3,al ;get offset address for lower right corner 

sub . 1 SCBNBASE , al 

move al,LwrRight ;save it 

movem.l (sp)+,d0-d4/al-a3 

rts 

















; Routine 


to redraw the sides of 


a pulldown 


menu 


item. 


Call: 


move 


w 


<width of box>, 


dO 








move 


w 


<heigth of box>,dl 








move 


1 


<pixeladdress> , 


al 








:sr 




inversmenuitem 









DRAWSIDES 

movem.l dO-dl/al,- (sp) 

; redraw the left vertical edge of the pull down menu 

add.l SCBNBASE, al ;add in the real video window address 
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334A 


7407 


334C 


4280 


334E 


4EBA FFIA 


3352 




3352 




3352 




3352 


2017 


3354 


222F 0004 


3358 


D3C0 


335A 


5349 


335C 


4280 


335E 


4282 


3360 




3360 


4EBA FF08 


3364 




3364 


4CDF 0203 


3368 




3368 


4E75 


336A 




336A 




336A 




336A 




336A 




336A 




336A 




336A 




336A 




336A 




336A 




336A 




336A 




336A 




336A 


48E7 F080 


33 6E 




33 6E 




33 6E 




33 6E 




33 6E 


COFC 0008 


3372 


41F8 053A 


3376 


3218 


3378 


4282 


337A 


263C 0000 03DE 


3380 




3380 


5241 


3382 


141C 


3384 


30C2 


3386 


617E 



moveq #7,ci2 

clr.l dO 

jsr paintbit 



;set the bit for paintbit 
; remember to clear dO . 



redraw the right vertical edge of the pulldownmenu 



move.l 


(sp) ,dO 


move.l 


4(sp) ,dl 


add.l 


dO,al 


subq 


#l,al 


clr.l 


dO 


clr.l 


d2 



; restore the width 

; restore the heigth 

;point the pixel address to the top edge of the right side 

; adjust address to point to byte with actual right edge 

; remember to clear dO on call. 

;set bit 



jsr paintbit 

movem.l (sp)+,dO-dl/al ;restore the parameters 

rts 



Displays pull down menu when called. Also makes 
entries in active rectangle table for each entry. 
Inputs : Al = starting pixel address for menu "box" 

A2 = starting pixel address for menu option message 

A3 = ptr to menu strings 

A4 = ptr to menu id's 

DO = menu "box" width 

Dl = menu "box" heigth 

D4 = # of menu entries 



MAKEMENU 




MOVEM.L 


D0-D3/A0,-(S 


.IF BMENU = 


.ENDC 




MDLU 


#8, DO 


LEA 


RectTable,AO 


MOVE 


(A0)+,D1 


CLR.L 


D2 


MOVE.L 


#MENUSPC,D3 


@1 ADDQ 


#1,D1 


MOVE.B 


(A4)+,D2 


MOVE 


D2, (A0)+ 


BSR.S 


GETROWCOL 



(■convert width to pixel count 

;get ptr to active rectangle table 

;get rectangle count 

; clear for use 

; space between menu entries 

;incr rectangle count 

;get menu entry id 

;save in table 

; convert address to X,Y coordinates 
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3388 


CCFC 


0008 


338C 


30C6 




338E 


30C5 




3390 


DC40 




3392 


30C6 




3394 


0645 


OOOB 


3398 


30C5 




33 9A 


2F09 




33 9C 


224A 




33 9E 


6166 




33A0 


6100 


035E 


33A4 


225F 




33A6 


D3C3 




33A8 


D5C3 




33AA 






33AA 


5344 




33AC 


66D2 




33AE 






33AF. 


31C1 


053A 


33B2 


4CDF 


OlOF 


33B6 


4E75 




33B8 






33B8 






33B8 






33B8 






33B8 






33B8 






33B8 






33B8 






33B8 






33B8 






33B8 






33B8 






33B8 






33B8 






33B8 






33B8 






33B8 






33B8 






33B8 






33B8 






33B8 






33B8 






33B8 






33B8 


48E7 


FEFE 


33BC 


615A 




33BE 







MDLU 


#8,D6 


MOVE 


D6, (A0)+ 


MOVE 


D5, (A0)+ 


ADD 


D0,D6 


MOVE 


D6, (A0)+ 


ADD 


#MENUSPC/90,D5 


MOVE 


D5, (A0)+ 


MOVE.L 


A1,-(SP) 


MOVE.L 


A2,A1 


BSR.S 


GETROWCOL 


BSR 


DSFMSG 


MOVE.L 


(SP)+,A1 


ADD.L 


D3,A1 


ADD.L 


D3,A2 


SUBQ 


#1,D4 


BNE.S 


@1 



MOVE Dl,RectCnt 
MOVEM.L (SP)+,D0-D3/A0 
RTS 



; convert to pixels 

;save upper X coordinate 

;save upper Y coordinate 

; compute and save 

; lower X coordinate 

; compute and save 

; lower Y coordinate 

;save "box" address 

;get address for menu message 

;cort5)ute msg output pt 

;do display 

; restore address for box 

;incr to next start pt for rectangle 

;also incr message address 

;loop until done 



;save new rectangle count 
; restore regs and exit 



routine writetitle -- 



> writes the title for the window whose 
left top corner is addressed by al, 
whose width is indicated by dO . 



To arrive at the correct address to write the title string, 
the window width and string length must be divided by 2, the 
result of the string division is subtracted from the width 
division to arrive at the general byte column position to 
begin writing the title. 



inputs : 



output : 



dO=window width 

al=window left/top corner point as a 

0.. 32670 screen offset address. 
a3=title string address 

all registers used are restored. 



WRITETITLE 

movem.l d0-d6/a0-a6,- (sp) 
bsr . s getlength 



;save as many registers as possible 
/calculate the length of the string 
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33BE 


E288 




33C0 


E28A 




33C2 


9082 




33C4 






33C4 


6140 




33C6 






33C6 


5845 




33C8 


DC80 




33CA 






33CA 


48E7 


0600 


33CE 






33CE 


6100 


0330 


33D2 






33D2 


4CDF 


0060 


33D6 


5945 




33D8 


5546 




33DA 


0246 


FFFE 


33DE 


9DCE 




33E0 


6100 


033C 


33E4 


224E 




33E6 






33E6 






33E6 






33E6 


266F 


0028 


33EA 


6100 


002C 


33EE 


5242 




33F0 


0242 


FFFE 


33F4 


2002 




33F6 


5840 




33F8 


720F 




33FA 


74FF 




33FC 


6100 


FD30 


3400 






3400 


4CDF 


7F7F 


3404 


4E75 




3406 






3406 






3406 






3406 






3406 






3406 






3406 






3406 






3406 






3406 






3406 






3406 







Isr.l #l,d0 

Isr.l #l,ci2 

sub.l d2,d0 

bsr . s getrowcol 

addq #4,d5 

add.l d0,d6 

movem.l d5/d6,-(sp) 



bsr 



dspmsg 



movem.l 


(sp)+,d5/d6 


subq 


#4,d5 


subq 


#2,d6 


andi.w 


#$FFFE,d6 


sub.l 


a6,a6 


bsr 


setcrsr2 


move.l 


a6,al 


restore 


the string ] 


move.l 


40(sp),a3 


bsr 


getlength 


addq 


#l,d2 


andi.w 


#$FFFE,d2 


move.l 


d2,d0 


addq 


#4,d0 


moveq 


#15, dl 


moveq 


#-l,d2 


bsr 


inverse 



movem.l (sp)+,d0-d6/a0-a6 
rts 



; divide window width 
; divide string length 
;l/2 width - 1/2 length - 



->dO 



;get the row and coliamn coordinate of 
;the window corner point 
/adjust for 4 pixel rows 
/adjust column pointer 

/stack line/column pointers for later ref 



/restore the parameters 

/reduce the pixel pointer by 4 

/backspace the column pointer by 2 

/round off to nearest word 

/clear a 6 

/convert standard row/col to pixel offset 

/move to al 



/the length is returned in a2 and d2 

/must round off the length to a word boiindary 

/set width of inverted window to length. . 

/ . . of string plus 4 

/set the heigth of the window 

/set the mask 

/invert the title 



routine getrowcol 



inputs : 
outputs : 



-> converts a screen address displacement 
to row and column coordinates. 

al=screen address in the range . . 32759 

d5 set to row 

d6 set to byte col (the remainder) 



registers used: d2 (but saved and restored) 
registers destroyed: d5,d6 (set to new values) 
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34061 
34061 
34061 
34081 
340AI 
340EI 
34101 
34121 
34141 
34141 
34141 
34141 
34141 
34141 
34141 
34141 
34161 
34181 
34181 
34181 
34181 
34181 
34181 
34181 
34181 
34181 
34181 
34181 
34181 
34181 
34181 
34181 
34181 
341AI 
341CI 
341EI 
34201 
34221 
34241 
34241 
34241 
34241 
34241 
34241 
34241 
34241 
34241 



2F02 

2409 

84FC 005A 

3A02 

4842 

3C02 



GETROWCOL 






move.l 


d2,-(sp) 


;save 62 


move.l 


al,ci2 


;inove the address to d2 


divu 


#R0WBYTES,ci2 


; divide the address by 90 bytes 


move 


d2,ci5 


;new row 


swap 


d2 




move.w 


d2,d6 


; remainder is colvimn 



MOVE.L A1,D2 

SOBI . L #TOPOFFSET , D2 

DIVU #RBYTES,D2 

MOVE D2,D5 

ADDQ #1,D5 



241F 
4E75 



move.l 
rts 



(sp) + ,d2 



;now calculate row 

;decr for offset 

; divide by bytes per char row 

;incr to next row 

; restore d2 
; return 







; routine getlength — 


> returns a value which is the length of 




the string referenced by a3. The 




string is assumed to be terminated by 




the null character value. 


; inputs : 


a3=string address 


; outputs : 


(32,3.2: string length 


registers destroyed 


62,32 (set to new values) 



244B 
141A 
66FC 
95CB 
240A 
4E75 



GETLENGTH 




move.l 


a3,a2 


@1 move.b 


(a2) + ,d2 


bne.s 


@1 


sub.l 


a3,a2 


move.l 


a2,d2 


rts 





;read a byte 

; continue 

; subtract the beginning from the end. 

;move it to d2 for reference 

; return 



Routine to display uncompressed icon. CHG008 

INPUTS : 

A2 = pointer to unconpressed icon (48 x 32 bitmap) 
A6 = pointer to (even ! ) screen address for upper left hand 
comer of icon 
SIDE EFFECTS: 



Computer Boot ROM 2.48 Listing • 220 of 265 



34241 
34241 
34241 
34241 
34241 
34261 
34281 
342AI 
342CI 
342CI 
342CI 
342CI 
342CI 
342CI 
342CI 
342CI 
342CI 
342CI 
342CI 
342CI 
342CI 
342CI 
342CI 
342CI 
342CI 
342CI 
342CI 
342CI 
34301 
34321 
34321 
34341 
34361 
34381 
34381 
343AI 
343AI 
343EI 
34421 
34421 
34441 
34481 
344AI 
344AI 
344EI 
34501 
34501 



DO-Dl are trashed 



7005 
721F 
6102 
4E75 



DSPRGICON 

MOVEQ 
MOVEQ 
BSR.S 
RTS 



#ICONWIDTH-1,DO 

#IC0NHIGH-1,D1 

OUTPUT 



set default width 

and heigth 
and do display 



CHG008 
CHG008 
CHG008 
CHG008 



Subroutine to display message or icon. 

The calling routine must provide the pointer to the raw bit map. 

Call: load dO with nvutiber of bytes - 1 in the x axis 

load dl with the number of pixels - 1 in the y axis 

lea sourcebytes , a2 
lea destination , a6 
jsr or bsr output 

Returns with d6 updated. 



48E7 3802 
765A 

4284 
3400 
6002 

5244 

1D9A 4000 
51CA FFF8 

DDC3 

51C9 FFEC 
5246 

4CDF 401C 
4E75 



OUTPUT 



loopO 



MOVEM.L D2-D4/A6,-(SP) ;save regs 
moveq #90, d3 

clr.l d4 
move.w dO,d2 
bra . s loop2 



loopl addq #l,d4 

loop2 move.b (a2)+,0 (a6,d4) 

dbf d2, loopl 

add .1 d3 , a6 

dbf dl,loopO 

addq #l,d6 

MOVEM.L (SP)+,D2-D4/A6 ;restore 
rts 

.PAGE 
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34501 
34501 
34501 
34501 
34501 
34501 
34501 
34501 
34501 
34501 
34501 
34501 
34501 
34501 
34501 
34541 
34581 
345AI 
345EI 
34621 
34641 
34641 
34641 
34641 
34641 
34641 
34641 
34641 
34641 
34641 
34641 
34641 
34641 
34641 
34641 
34661 
34681 
346AI 
346AI 
346EI 
34701 
34721 
34761 
34781 
347AI 
347AI 
347EI 



Routine to display error icon with id #. 

INPUTS : 

Dl = id # to display 
A2 = pointer to compressed icon 
A5 = upper left corner address for icon as 
offset from screen address 

SIDE EFFECTS: 

D5-D6 are trashed 



6100 OODA 
3A7C 287E 
610A 

DBF8 0110 
6100 008C 
4E75 



BSR 


DSPALRTICON 


MOVE 


#ERRSTRT,A5 


BSR.S 


DSPNUM 


ADD.L 


SCRNBASE,A5 


BSR 


DSPBAD 


RTS 





; display the icon 

;get icon address offset 

; display id # on icon 

;get screen address 

; display bad mark over icon 



Routine to display icon id #. 
INPUTS : 

Dl = id # to display 
A2 = pointer to compressed icon 
A5 = upper left corner address for icon as 
offset from screen address 

SIDE EFFECTS: 

D1/D5-D6/A2-A3 are trashed 



2F00 
224D 
619C 

47FA 05A8 

B7CA 

6608 

0645 0016 

5646 

6038 

47FA 0552 
B7CA 



DSPNUM MOVE.L DO,-(SP) 
MOVE.L A5,A1 
BSR GETROWCOL 



@1 



LEA 


XCARD,A3 


CMPA.L 


A2,A3 


BNE.S 


@1 


ADD 


#SL0TR0W,D5 


ADDQ 


#SL0TC0L,D6 


BRA.S 


@6 


LEA 


MEMBRD,A3 


CMPA.L 


A2,A3 



;save reg 

; convert icon address to row, col 



;slot card icon? 

;skip if not 

;add offsets for card id to cursor ptrs 



; memory board? 
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3480 


6608 




3482 


0645 


0010 


3486 


5846 




3488 


6028 




348A 






348A 


4A38 


02AF 


348E 


6646 




3490 






3490 


47FA 


088C 


3494 


B7CA 




3498 


0645 


0012 


34 9C 


5846 




34 9E 


6012 




34A0 






34A0 


47FA 


067C 


34A4 


B7CA 




34A6 


6606 




34A8 


5C45 




34AA 


5646 




34AC 


6004 




34AE 






34AE 






34AE 


5B45 




34B0 


5846 




34B2 






34B2 


6100 


0266 


34B6 


5341 




34B8 


6606 




34BA 


45FA 


0480 


34BE 


600E 




34C0 






34C0 


5341 




34C2 


6606 




34C4 


45FA 


047B 


34C8 


6004 




34CA 






34CA 


45FA 


047A 


34CE 






34CE 


7000 




34D0 


7204 




34D2 


6100 


FF58 


34D6 






34D6 


201F 




34D8 


4E75 




34DA 






34DA 






34DA 







BNE.S @2 

ADD #MEMR0W,D5 

ADDQ #MEMC0L,D6 

BRA.S @6 

@2 TST.B SYSTYPE 

BNE.S @99 

LEA DISKETTE, A3 

CMPA.L A2,A3 

ADD #DISKR0W,D5 

ADDQ #DISKC0L,D6 

BRA.S @6 



;skip if not 

;add offsets for card id 

;and go display 

;Lisa 2 system? 

;exit if yes - no id #'s 

; diskette icon? 

;cort5)ute posn for id # 



CHG009 
CHG009 



@3 


LEA 


DRIVEN, A3 




CMPA.L 


A2,A3 




BNE.S 


@4 




ADDQ 


#DRVR0W,D5 




ADDQ 


#DRVC0L,D6 




BRA.S 


@6 


@4 








SUBQ 


#INSRTR0W,D5 




ADDQ 


#INSRTC0L,D6 


@6 


BSR 


SETCRSR 




SUBQ 


#1,D1 




BNE.S 


@7 




LEA 


0NE,A2 




BRA.S 


@9 


@7 


SUBQ 


#1,D1 




BNE.S 


@8 




LEA 


TW0,A2 




BRA.S 


@9 


@8 


LEA 


THREE ,A2 


@9 


MOVEQ 


#0,D0 




MOVEQ 


#4,D1 




BSR.S 


OUTPUT 


@99 


MOVE.L 
RTS 


(SP)+,DO 

r 



drive icon? 


CHG009 




CHG009 


skip if not 


CHG009 


add offsets for id # 


CHG009 




CHG009 


and go display 


CHG009 


must be insert icon 


CHG009/CHG024 




CHG009 



get screen address in A6 
check number to display 

set ptr to # icon 



is it 2? 



must be 3 

set width - 1 
and heigth - 1 
display it 

restore reg 
and exit 
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34DAI 
34DAI 
34DAI 
34DAI 
34DAI 
34DAI 
34DAI 
34DAI 
34DAI 
34DAI 
34DAI 
34DEI 
34E0I 
34E2I 
34E6I 
34E8I 
34ECI 
34ECI 
34F0I 
34F2I 
34F6I 
34F8I 
34FAI 
34FAI 
34FAI 
34FAI 
34FAI 
34FAI 
34FAI 
34FAI 
34FAI 
34FAI 
34FAI 
34FAI 
34FAI 
34FAI 
34FAI 
34FE| 
35001 
35021 
35061 
350AI 
350EI 
350EI 
35101 
35121 
35141 



Routine to display error icon. 

INPUTS : 

A2 = pointer to compressed icon 

SIDE EFFECTS: 

A2/A6, D5-D6 are trashed 



6100 FC8C 
7A73 
7C10 

6100 0236 
2A4E 
6100 OOFS 

45FA 079A 
6108 

45FA 07E2 
6102 
4E75 



DSPERRICON 




BSR 


MAKT!;aT.F.RT 


MOVEQ 


#ERRR0W,D5 


MOVEQ 


#ERRC0L,D6 


BSR 


SETCRSR 


MOVE.L 


A6,A5 


BSR 


DSPICON 


DSPBAD 




LEA 


CHECKMRK,A2 


BSR.S 


MRGICON 


LEA 


BflDMRK,A2 


BSR.S 


MRGICON 


RTS 





;open alert box 
;set screen ptrs 

;get screen address in A6 

;save it 

;go do display of coiiponent icon 

;get ptr to check icon 

;do the merge 

;get ptr to slash icon 

; merge it 

;and exit 



Routine to merge two icons, one over the other. 

INPUTS : 

A2 = ptr to icon to be merged 
A5 = pointer to base icon 

SIDE EFFECTS: 
None 



48E7 F006 
2C4D 
5C4E 

48E7 0006 
6100 OODA 
4CDF 6000 

7654 
741F 
7202 
3016 



MRGICON MOVEM.L D0-D3/A5-A6,- (SP) ;save regs 





MOVE.L A5,A6 






ADDQ #6,A6 






MOVEM.L A5-A6,-(SP) 






BSR DSPICON 






MOVEM.L (SP)+,A5-A6 






MOVEQ #R0WBYTES-6 


D3 




MOVEQ #32-1, D2 




@1 


MOVEQ #3-1, Dl 




@2 


MOVE (A6) ,D0 





;get start address 

; first display new icon next to other icon 

;save ptrs 

; restore ptrs 

;set up row offset constant 
;icon heigth in pixel lines - 1 
;icon width in words - 1 
;get from byte 
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3516 


815D 




3518 


425E 




351A 


51C9 


FFF8 


351E 


DBC3 




3520 


DDC3 




3522 


51CA 


FFEE 


3526 






3526 


4CDF 


600F 


352A 


4E75 




352C 






352C 






352C 






352C 






352C 






352C 






352C 






352C 






352C 






352C 






352C 






352C 






352C 






352C 






352C 


48E7 


C020 


3530 


6100 


FC36 


3534 


7A73 




3536 


7C10 




3538 


6100 


OlEO 


353C 


220A 




353E 


6A0C 




3540 


0881 


OOIF 


3544 


2441 




3546 


6100 


FEDC 


354A 


6004 




354C 


6100 


0094 


3550 


4CDF 


0403 


3554 


4E75 




3556 






3556 






3556 






3556 






3556 






3556 






3556 






3556 






3556 






3556 







;do the merge 

; erase the old 

;do full row 

;buirip ptrs to next row 

;go to next row 



MOVEM.L (SP)+,D0-D3/A5-A6 /restore and exit 
RTS 



OR 


DO, (A5)+ 


CLR 


(A6) + 


DBF 


Dl,@2 


ADDA.L 


D3,A5 


ADDA.L 


D3,A6 


DBF 


D2,@l 



Routine to display alert icon. 



INPUTS : 



A2 = pointer to icon 

MSB set if unconpressed icon, else coitpressed assumed 

SIDE EFFECTS: 

A6, D5-D6 are trashed 



CHG008 





MOVEM.L 


D0-D1/A2,-(SP) 


;save regs 




BSR 


MAKEALERT 


;open alert box 




MOVEQ 


#ALRTR0W,D5 


;set screen ptrs 




MOVEQ 


#ALRTC0L,D6 






BSR 


SETCRSR 


;get screen address in A6 




MOVE.L 


A2,D1 


; check icon address 




BPL.S 


@1 


;skip if for compressed icon 




BCLR 


#31, Dl 


; clear indicator bit 




MOVE.L 


D1,A2 


;and restore ptr 




BSR 


DSPRGICON 


; display an uncompressed icon 




BRA.S 


@2 


;skip to exit 


@1 


BSR 


DSPICON 


;go do display 


@2 


MOVEM.L 
RTS 


(SP)+,D0-D1/A2 


; restore regs 



Routine to display icon with question mark along side. 

INPUTS : 

A2 = pointer to compressed icon 
OUTPUTS: 

A5 = icon screen address 
SIDE EFFECTS: 



CHG008 



CHG008 
CHG008 
CHG008 
CHG008 
CHG008 
CHG008 
CHG008 
CHG008 
CHG008 
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35561 
35561 
35561 
35561 
35561 
355AI 
355CI 
355EI 
35621 
35641 
35661 
356AI 
356CI 
35701 
35721 
35741 
35741 
35741 
35741 
35741 
35741 
35741 
35741 
35741 
35741 
35741 
35741 
35741 
35781 
357AI 
357CI 
357EI 
35821 
35861 
35881 
35881 
35881 
35881 
35881 
35881 
35881 
35881 
35881 
35881 
35881 
35881 
35881 



A2/A6, D5-D6 are trashed 



DSPQICON 



6100 FCIO 

7A73 

7C10 

6100 OIBA 

2A4E 

617C 

45FA 06FD 

2C4D 

DCFC 0006 

6170 

4E75 



BSR 

MOVEQ 

MOVEQ 

BSR 

MOVE.L 

BSR.S 

LEA 

MOVE.L 

ADDA 

BSR.S 

RTS 



MAKEALERT 

#ERRR0W,D5 

#ERRC0L,D6 

SETCRSR 

A6,A5 

DSPICON 

QUESTION, A2 

A5,A6 

#6,A6 

DSPICON 



;open alert box 
;set screen ptrs 

;get screen address in A6 

;save it 

;go do display of component icon 

;get ptr to ? icon 

; restore start address 

; display next to coitponent 



RMOOO 



Routine to hilite (invert) a test icon. 



INPUTS : 



Al = address of icon 



SIDE EFFECTS: 
None 



48E7 EOOO 

7006 

7220 

74FF 

6100 FBAE 

4CDF 0007 

4E75 



INVICON MOVEM.L D0-D2,-(SP) 

MOVEQ #ICONWIDTH,D0 
MOVEQ #IC0NHIGH,D1 
MOVEQ #-l,D2 
BSR INVERSE 
MOVEM.L (SP)+,D0-D2 
RTS 



;save regs 

;set parms for icon 

;set fill pattern 

;and go invert selected one 

(■restore 



Routine to display test icons . 

INPUTS : 

None 

SIDE EFFECTS: 

A2/A6 trashed 



DSPCPU 
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3588 


45FA 


0401 


358C 


3C7C 


1DF6 


3590 


601C 




3592 






3592 






3592 


45FA 


043A 


3596 


3C7C 


1E04 


35 9A 


6012 




35 9C 






35 9C 






35 9C 


45FA 


03AD 


35A0 


3C7C 


1E12 


35A4 


6008 




35A6 






35A6 






35A6 


45FA 


046C 


35AA 


3C7C 


1E20 


35AE 






35AE 






35AF. 


DDF8 


0110 


35B2 


612E 




35B4 


4E75 




35B6 






35B6 






35B6 






35B6 






35B6 






35B6 






35B6 






35B6 






35B6 






35B6 






35B6 






35B6 






35B6 






35B6 






35B6 


61D0 




35B8 


3A7C 


1DF6 


35BC 


6016 




35BE 






35BE 






35BE 


61D2 




35C0 


3A7C 


1E04 


35C4 


600E 




35C6 






35C6 






35C6 


61D4 





DSPMBRD 



DSPIOB 



DSPXCRD 



DODSPLY 



LEA 


CP0BRD,A2 


MOVEA 


#CPUSTRT,A6 


BRA.S 


DODSPLY 


LEA 


MEMBRD,A2 


MOVEA 


#MEMSTRT,A6 


BRA.S 


DODSPLY 


LEA 


I0BRD,A2 


MOVEA 


#I0STRT,A6 


BRA.S 


DODSPLY 


LEA 


XCARD,A2 


MOVEA 


#XCRDSTRT,A6 


ADDA.L 


SCRNBASE,A6 


BSR.S 


DSPICON 


RTS 





;set ptr for CPU board icon 
;and address 
;go do display 



;set ptr for Memory board icon 
;and address 
;go do display 



;set ptr for I/O board icon 
;and address 
;go do display 



;set ptr for I/O slot card icon 
;and address 



; compute screen address for display 
;go do display 



Routine to display icon with check mark. 

Inputs : 

None 
Outputs : 

None 
Side Effects: 

A6 trashed 



CHKCPU 



BSR.S DSPCPU 
MOVEA #CPUSTRT , A5 
BRA.S DSPCHECK 



CHKMBRD 



BSR.S DSPMBRD 
MOVEA #MEMSTRT , A5 
BRA.S DSPCHECK 



CHKIOBRD 



BSR.S DSPIOB 



; redisplay CPU icon 

;get start address for it 

;and go add check mark 



; redisplay ^femory board icon 
;get start address for it 
;and go add check mark 



; redisplay I/O icon 
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35C8 


3A7C 


1E12 


35CC 


6006 




35CE 






35CE 






35CE 


61D6 




35D0 


3A7C 


1E20 


35D4 






35D4 






35D4 


45FA 


06B2 


35D8 


DBF8 


Olio 


35DC 


6100 


FFIC 


35E0 


4E75 




35E2 






35E2 






35E2 






35E2 






35E2 






35E2 






35E2 






35E2 






35E2 






35E2 






35E2 






35E2 






35E2 






35E2 






35E2 


48E7 


EOAO 


35E6 


204E 




35E8 






35E8 


7217 




35EA 


7405 




35EC 






35EC 


303C 


0100 


35F0 


lOlA 




35F2 






35F2 


E248 




35F4 


6714 




35F6 


6404 




35F8 


421E 




35FA 


6002 




35FC 


ICDA 




35FE 






35FE 


51CA 


FFF2 


3602 


DCFC 


0054 


3606 


7405 




3608 


60E8 




360A 







MOVEA 
BRA.S 



CHKXCRD 



BSR.S 
MOVEA 



DSPCHECK 



LEA 
ADDA.L 
BSR 
RTS 



#I0STRT,A5 
DSPCHECK 



DSPXCRD 
#XCRDSTRT,A5 



CHECKMRK,A2 
SCRNBASE,A5 
MRGICON 



;get start address for it 
;and go add check mark 



; redisplay I/O slot card icon 
;get start address for it 



;get ptr to check icon 

(■cortpute screen address for display 

;and go do merge 



Routine to display compressed icon. 

INPUTS : 

A2 = pointer to compressed icon 

A6 = pointer to (even ! ) screen address for upper left hand 
comer of icon 
SIDE EFFECTS: 

A6 is trashed 



DSPICON 



MOVEM.L D0-D2/A0/A2 , - 
MOVE.L A6,A0 



(SP) 



DLOOP 



MLOOP 



MOVEQ 


#23, Dl 


MOVEQ 


#5,D2 


MOVE 


#$100, DO 


MOVE.B 


(A2)+,D0 


LSR.W 


#1,D0 


BEQ.S 


DONE 


BCC.S 


BLACK 


CLR.B 


(A6) + 


BRA.S 


CHECK 



BLACK MOVE.B (A2) + ,(A6) + 

CHECK DBF D2, MLOOP 

ADDA #90-6, A6 

MOVEQ #5,D2 

BRA.S MLOOP 



CHG009 
save screen start address 

There are 24 octals in an icon 
reset row bytes counter 

prime DO for 8 bit count count 
load map byte from compressed image 

shift off map bit 
byte done when = 
dispatch on the bit 
store zero in new 
continue for all 8 bits 
store byte in new 

see if on scanline seam (every 6 bytes) 
bvutp to next scanline RM015 
reset row bytes counter 
continue for all 8 bits 
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360A 


51C9 


FFEO 


360E 






360E 






360E 


2C48 




3610 


244E 




3612 


D4FC 


005A 


3616 






3616 


323C 


OOIE 


361A 






361A 


201E 




361C 


B19A 




361E 


301E 




3620 


B15A 




3622 


D4FC 


0054 


3626 


DCFC 


0054 


362A 






362A 


51C9 


FFEE 


362E 


4CDF 


0507 


3632 


4E75 




3634 






3634 






3634 






3634 






3634 






3634 






3634 






3634 






3634 






3634 






3634 






3634 






3634 






3634 






3634 






3634 


48E7 


AOOO 


3638 


45FA 


0887 


363C 


B7CA 




363E 


6770 




3640 


244B 




3642 


1038 


01B2 


3646 


6768 




3648 


0200 


003F 


364C 


1400 




364E 






364E 






364E 






364E 


0202 


OOFO 



DONE 



DBF 



D1,DL00P 



Now unXOR the icon on the screen 
MOVE.L A0,A6 
MOVE.L A6,A2 
ADDA #90, A2 



do the rest of the octals in ICON 



get screen pointer saved above 

second pointer 

scanline pointer BM015 



MOVE #30, Dl ; do 31 scanlines 
; This is the cause of the even destination restriction 

XLOOP MOVE.L (A6)+,D0 ; get long from previous scanline 

EOR.L D0,(A2)+ ; xor into this scanline 

MOVE.W (A6)+,D0 ; get word from previous scanline 

EOR.W D0,(A2)+ ; xor into this scanline 

ADDA #90-6, A2 ; next scan line + rowbytes RM015 

ADDA #90-6, A6 ; next scan line + rowbytes RM015 



DBF Dl, XLOOP 

MOVEM.L (SP)+,D0-D2/A0/A2 

RTS 

.PAGE 



CHG009 



Subroutine to display text string according to keyboard id 
Inputs : 

A3 = ptr to message 

Dl = nonzero if ' . . . ' string to be appended 
Outputs : 

A2 = ptr to start of string 

A3 = ptr to end of string 
Side Effects: 

D5-D6, A3 trashed 



MOVEM.L 


D0/D2,-(SP) 


LEA 


MENUHDG,A2 


CMPA.L 


A2,A3 


BEQ.S 


DSPOUT 


MOVE.L 


A3,A2 


MOVE.B 


KEYID,DO 


BEQ.S 


DSPOUT 


ANDI.B 


#$3F,D0 


MOVE.B 


D0,D2 



;save regs 

; don't translate service mode messages 

;skip if it is 

;else save starting point 

;get keyboard id 

;skip if no id available 

; clear mfg code 

;move to working reg 



Search for US, UK or Canadian keyboard 

ANDI.B #$F0,D2 ;old US keyboard? 
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3652 


675C 




3654 


0C02 


0030 


3658 


6608 




365A 


OCOO 


003D 


365E 


6726 




3660 


604E 




3662 






3662 


0C02 


0020 


3666 


661E 




3668 


OCOO 


002F 


366C 


6742 




366E 






366E 






366E 






366E 


OCOO 


002E 


3672 


6732 




3674 


OCOO 


0026 


3678 


672C 




367A 






367A 






367A 


OCOO 


002D 


367E 


672A 




3680 


OCOO 


0027 


3684 


6724 




3686 






3686 






3686 






3686 


0838 


0007 02A2 


368C 


6612 




368E 


0445 


OOOA 


3692 


6124 




3694 


0645 


OOOA 


3698 


611E 




369A 


0645 


OOOA 


369E 


6010 




36A0 






36A0 


6130 




36A2 


612E 




36A4 


600A 




36A6 






36A6 






36A6 


4A1B 




36A8 


66FC 




36AA 






36AA 






36AA 


4A1B 




36AC 


66FC 





@1 



BEQ . S DSPOUT 

CMPI.B #$30, D2 

BNE.S @1 

CMPI.B #$3D,D0 

BEQ . S DSFALL 

BRA.S DSPOUT 

CMPI.B #$20, D2 

BNE . S DSPALL 

CMPI.B #$2F,D0 

BEQ . S DSPOUT 



;yes - go do English display 
;US or Canadian layout? 

; Canadian? 

;yes - display all languages 

;else just English 

; European keyboard? 

;no - display all languages 

;UK? 

;yes - display English 



Search for German type keyboard 

; German? 

; Swiss-German? 



CMPI.B #$2E,D0 

BEQ . S DSPGERMN 

CMPI.B #$26, DO 

BEQ . S DSPGERMN 



Search for French type keyboard 

CMPI.B #$2D,D0 ; French? 

BEQ . S DSPFRNCH 

CMPI.B #$27, DO ; Swiss-French? 

BEQ . S DSPFRNCH 

Display all languages for any other keyboard (e.g., Italian, Spanish, etc.) 



;skip if yes 

;back up one row 

; display English string 

;incr to next row 

; display French translation 

;buirp another row 

;go do final display of German 



DSPAI 


i BTST 


#MENU,STAT 




BNE.S 


@1 




SUB 


#CHRSPC,D5 




BSR.S 


DSPIT 




ADD 


#CHRSPC,D5 




BSR.S 


DSPIT 




ADD 


#CHRSPC,D5 




BRA.S 


DSPOUT 


@1 


BSR.S 


DSPMSLSH 




BSR.S 


DSPMSLSH 




BRA.S 


DSPOUT 


DSPGE 


RMN 

TST.B 


(A3) + 




BNE.S 


DSPGERMN 


DSPFF 


J«CH 

TST.B 


(A3) + 




BNE.S 


DSPFRNCH 



; display English followed by / 
; display French followed by / 
;and go do final German display 



;skip two strings before output 



;skip one string before output 
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36AEI 
36B0I 
36B0I 
36B2I 
36B6I 
36B8I 
36B8I 
36B8I 
36B8I 
36B8I 
36B8I 
36B8I 
36B8I 
36B8I 
36B8I 
36B8I 
36B8I 
36B8I 
36BCI 
36BEI 
36C0I 
36C2I 
36C4I 
36C8I 
36CAI 
36CAI 
36CCI 
36D0I 
36D2I 
36D2I 
36D2I 
36D2I 
36D2I 
36D2I 
36D2I 
36D2I 
36D2I 
36D2I 
36D2I 
36D2I 
36D2I 
36D4I 
36D6I 
36D8I 
36DAI 
36DAI 
36DAI 



244B 

6106 

4CDF 0005 
4E75 



MOVE.L A3,A2 

DSPOUT BSR.S DSPIT 

MOVEM.L (SP)+,D0/D2 
RTS 



;save new beginning ptr 

;do display 
; restore regs 
; and exit 



Subroutine to display text string followed by ' . . . ' 
Inputs : 

A3 = ptr to message 

Dl = nonzero if ' . . . ' string to be appended 
Outputs : 

None 
Side Effects: 

A3 updated to next location after byte 



48E7 0600 

6142 

2F0B 

4A41 

6706 

47FA 07F7 

6136 

265F 

4CDF 0060 
4E75 



DSPIT MOVEM.L D5-D6,-(SP) 

BSR.S DSPMSG 

MOVE.L A3,-(SP) 

TST Dl 

BEQ.S @9 

LEA PERIODS, A3 

BSR.S DSPMSG 



@9 



MOVE.L (SP)+,A3 
MOVEM.L (SP)+,D5-D6 
RTS 



;save cursor ptrs 

; output message 

;save msg ptr 

; check if periods needed 

;skip if not 

;else do display 



; restore regs and exit 



Subroutine to display text string followed by ' / ' 
Inputs : 

A3 = ptr to message 
Outputs : 

None 
Side Effects: 

A3 updated to next location after byte 



DSPMSLSH 



612C 
702F 
6162 
4E75 



BSR.S DSPMSG 

MOVEQ #'/',D0 

BSR.S DSPVAL 
RTS 



; output message 
; display / 



Subroutine to display alert box message 
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36DAI 
36DAI 
36DAI 
36DAI 
36DAI 
36DAI 
36DAI 
36DAI 
36DEI 
36E2I 
36E4I 
36E6I 
36E8I 
36ECI 
36EEI 
36EEI 
36EEI 
36EEI 
36EEI 
36EEI 
36EEI 
36EEI 
36EEI 
36EEI 
36F2I 
36F6I 
36F6I 
36F6I 
36F6I 
36F6I 
36F6I 
36F6I 
36F6I 
36F8I 
36F8I 
36F8I 
36F8I 
36FCI 
36FCI 
36FCI 
36FEI 
37001 
37001 
37001 
37001 
37001 
37001 



Inputs : 

A3 = ptr to message 
Outputs : 

None 



48E7 OEOO 

3A3C 007E 

7C18 

3805 

6118 

4CDF 0070 

4E75 



DSPALRTMSG 

MOVEM.L D4-D6,-(SP) 
MOVE #MSGR0W,D5 
MOVEQ #MSGC0L,D6 
MOVE D5,D4 
BSR.S DSFMSG 
MOVEM.L (SP)+,D4-D6 
RTS 



;save regs 

;set screen ptrs 

;set left margin in case of CR 
;go do display 
; restore regs 



CHG005 

CHG005 
CHG005 



Routine to convert row coordinate to pixel row coordinate before 
doing message display 

Expects D5 = row coordinate from 0-32 



C0NVRTD5 



CAFC OOOA 
610C 



MULU #10, D5 
BSR.S DSFMSG 
RTS 
.ENDC 



/multiply by pixel lines per char row 
;then go do message 

;{USERINT} 



Subroutine to display message followed by a line feed, CR. 
Calls DSI^ISG routine, with same assuitptions as that routine. 



6108 



0645 OOOA 



7C01 
4E75 



DSPMSGR BSR.S DSFMSG 

.IF USERINT = 
.ELSE 

ADD #CHRSPC,D5 
.ENDC 

MOVEQ #1,D6 
RTS 



;go display msg 



;do "line feed" 



;and "carriage return" 



Subroutine to display message on screen. 

Requires inputs : 

A3 - ptr to ASCII character string ended by byte 
D4 = left margin if message has a CR 
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37001 
37001 
37001 
37001 
37001 
37001 
37001 
37001 
37001 
37021 
37021 
37021 
37061 
37081 
370CI 
370CI 
370CI 
370EI 
37101 
37121 
37141 
37161 
37181 
371AI 
371AI 
371AI 
371AI 
371AI 
371AI 
371AI 
371AI 
371AI 
371AI 
371AI 
371AI 
371AI 
371AI 
371EI 
371EI 
37201 
37221 
37221 
37221 
37221 
37241 
37241 
37281 



D5 = cursor row position (0 - 32 decimal) 
D6 = cursor column position (1 - 88 decimal) 
Uses regs: 

DO - for character to display 

NOTE: ONLY UPPER CASE ALPHA, NUMERIC AND CERTAIN SPECIAL CHARS SUPPORTED! 



2F00 



0C45 014C 
6F04 
6100 F3FE 



4280 
lOlB 
6704 
6126 
60EC 
201F 
4E75 



DSPMSG MOVE.L DO,-(SP) 





.IF 


RCMAK = 


@1 


CMPI 


#LASTR0W,D5 




BLE.S 


@2 




BSR 


SCROLL 




.ENDC 




@2 


CLR.L 


DO 




MOVE.B 


(A3) + ,D0 




BEQ.S 


DSPDONE 




BSR.S 


DSPVAL 




BRA.S 


@1 


DSPDC 


NE MOVE.L 


(SP)+,DO 




RTS 





;save reg 



/check if out of boionds 
;skip if OK 
;else scroll page 



/clear for use 

;get a char to display 

;exit if done 

;go do display 

/continue until done 

/restore and exit 



.PAGE 



Subroutine to set cursor position in video page for message display. 
Requires inputs: 

D5 = row position (0 - 32 decimal) 

D6 = column position (1 - 88 decimal) 

location SCRNBASE = base address for video page 
Provides output: 

A6 = address for new cursor location 



SETCRSR 



2C78 0110 

2F00 
4280 



3005 
COFC 005A 



SETCRSR2 



MOVE.L SCRNBASE, A6 
2 

MOVE.L DO,-(SP) 

CLR.L DO 



.IF USERINT = 
.ELSE 

MOVE D5,D0 
.ENDC 
MHLU #RBYTES,DO 



;get base address for screen 

;save reg 

;use as working reg 



;get pixel row 
/compute byte offset 
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37281 
37281 
372CI 
372CI 
372CI 
372CI 
372CI 
372EI 
37301 
37321 
37321 
37321 
37321 
37341 
37341 
37341 
37361 
37381 
373AI 
373AI 
373AI 
373AI 
373AI 
373AI 
373AI 
373AI 
373AI 
373AI 
373AI 
373AI 
373AI 
373EI 
37401 
37441 
37441 
37461 
37481 
37481 
37481 
37481 
374CI 
374EI 
37521 
37541 
37581 
375AI 
375AI 



0640 005A 



DOSE 
2C40 
4280 



.IF USERINT = 
ADD #RBYTES,DO 
.ELSE 

ADD #TOPOFFSET,D0 
.ENDC 



3006 



DDCO 
201F 
4E75 



ADD.L 


A6,D0 




MOVE.L 


D0,A6 




CLR.L 


DO 




.IF USERINT = 


= 


.ELSE 






MOVE 


D6,D0 




.ENDC 






ADDA.L 


D0,A6 




MOVE.L 


(SP)+, 


DO 


RTS 







;add one more 
/adjust for offset from top of screen 



;add in base screen address 
;and save new value 



;get pixel col 



;add to cursor address 
/restore and exit 



Subroutine to display single ASCII character. 
Requires input: 

DO = character to display 

D4 = left margin if CR char 

D5 = cursor row position (0 - 32 decimal) 

D6 = cursor column position (1 - 88 decimal) 
Returns output: 

D6 = new cursor col position (incremented by 1) 



48E7 C022 
61DA 
0240 007F 

4A00 
6738 



OCOO 0020 
672C 

OCOO OOOD 
6732 

OCOO 003F 
6734 

0400 002D 



DSPVAL MOVEM.L A2/A6/D0-D1,-(SP) 
BSR.S SETCRSR 
ANDI #$7F,D0 

.IF USERINT = 1 
TST.B DO 
BEQ.S @4 

.ENDC 

.IF R0M4K = 

CMPI.B #$20, DO 

BEQ.S @3 

CMPI.B #RET,DO 

BEQ.S @5 

CMPI.B #QUESTN,DO 

BEQ.S @6 

SUB.B #$2D,D0 



/save regs 

/set cursor position 

/ensure valid 

/apple icon? 



/space? 
/skip if yes 
/carriage return? 
/skip if yes 
/ ' ? ' char? 



/else check if in table 
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375E 


6D14 




3760 


OCOO 


OOOC 


3764 


6F2E 




3766 


5F00 




3768 


OCOO 


OOOD 


37 6C 


6D06 




37 6E 


OCOO 


0026 


3772 


6F20 




3774 






3774 






3774 






3774 






3774 






3774 






3774 






3774 


45FA 


013A 


3778 


6026 




377A 






377A 


45FA 


003E 


377E 


6020 




3780 






3780 


45FA 


0134 


3784 


601A 




3786 






3786 


0645 


OOOA 


378A 


3C04 




378C 


6026 




378E 






378E 


45FA 


OllA 


3792 


600C 




3794 






3794 


3200 




3796 


E748 




3798 


9041 




37 9A 


9041 




37 9C 






37 9C 


45FB 


0022 


37A0 






37A0 


4280 




37A2 


7205 




37A4 


4216 




37A6 


DDFC 


0000 005A 


37AC 


6100 


FC7E 


37B0 


422E 


0276 


37B4 






37B4 






37B4 







@1 



@3 



@4 



@5 



@6 



@2 



out 



BLT.S 


@1 


CMPI.B 


#$C,DO 


BLE.S 


@2 


SUB.B 


#7, DO 


CMPI.B 


#$D,DO 


BLT.S 


@1 


CMPI.B 


#$26, DO 


BLE.S 


@2 


.ELSE 




.ENDC 




.IF USERINT = 


.ELSE 




LEA 


INVCHAR,A2 


BRA.S 


GOT 


LEA 


SPACE ,A2 


BRA.S 


GOT 


LEA 


APPLICGN,A2 


BRA.S 


GOT 


ADD 


#CHRSPC,D5 


MOVE 


D4,D6 


BRA.S 


DSPVXIT 


LEA 


Q0ESTCH,A2 


BRA.S 


GOT 


MOVE 


D0,D1 


LSL 


#3, DO 


SOB 


D1,D0 


SOB 


D1,D0 



LEA FGNTTBL(DO) ,A2 

clr.l dO 

moveq #5,cil 

MOVE.B #0,R0(A6) 

ADDA . L #RBYTES , A6 

bsr output 

MOVE.B #0,R7(A6) 
.ENDC 



/numeric cdiar? 

;skip if yes 

;else deer for alpha check 

/check if in alpha range 

;skip if invalid 

;last valid char = 'Z' 



;skip if GK 



;else set for invalid character 

;set ptr to space char 

; display apple icon 

;set cursor for next row 
;set to left margin 

; set ptr to ' ? ' char 



/convert for table (multiply by 6) CHG017 

;mult by 8 

; then siabtract twice 

CHG017 

;get ptr to char in table 

;set number of bytes-1 in x direction 

;set number of pixels-1 in y direction CHG017 

/first line always CHG017 

;biairp ptr to next row CHG017 

/output char 

;and add final byte 



DSPVXIT 
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37B4 


4CDF 4403 






37B8 


4E75 










37BA 














37BA 














37BA 














37BA 














37BA 














37BA 














37BA 














37BA 














37BA 


00 


00 


00 


00 


00 


00 


37C0 














37C0 














37C0 














37C0 


00 


00 


00 


7C 


00 


00 


37C6 


00 


00 


00 


00 


00 


30 


37CC 


04 


08 


10 


20 


40 


80 


37D2 














37D2 














37D2 


38 


44 


44 


44 


44 


38 


37D8 


08 


38 


08 


08 


08 


08 


37DE 


38 


44 


08 


10 


20 


7C 


37E4 


38 


44 


18 


04 


44 


38 


37EA 


08 


18 


28 


48 


7C 


08 


37F0 


7C 


40 


78 


04 


44 


38 


37F6 


38 


40 


78 


44 


44 


38 


3802 


38 


44 


38 


44 


44 


38 


3808 


38 


44 


44 


3C 


04 


38 


380E 














380E 


30 


48 


84 


FC 


84 


84 


3814 


F8 


84 


F8 


84 


84 


F8 


381A 


78 


84 


80 


80 


84 


78 


3820 


F8 


84 


84 


84 


84 


F8 


3826 


FC 


80 


F8 


80 


80 


FC 


382C 


FC 


80 


F8 


80 


80 


80 


3832 


78 


84 


80 


9C 


84 


7C 


3838 


84 


84 


FC 


84 


84 


84 


383E 


38 


10 


10 


10 


10 


38 


3844 


IC 


08 


08 


08 


88 


70 


384A 


88 


90 


AO 


DO 


88 


84 


3850 


80 


80 


80 


80 


80 


FC 


3856 


84 


CC 


B4 


84 


84 


84 


385C 


84 


C4 


A4 


94 


8C 


84 


3862 


78 


84 


84 


84 


84 


78 


3868 


F8 


84 


84 


F8 


80 


80 


386E 


78 


84 


84 


84 


94 


78 


3874 


F8 


84 


84 


F8 


88 


84 



MOVEM.L (SP)+,A2/A6/D0-D1 
RTS 

.IF EXTERNAL = 1 

.ENDC 

.PAGE 



/restore and exit 



CHARACTER FONT TABLE 



SPACE 

.BYTE 



$00, $00, $00, $00, $00, $00 



FONTTBL 

.IF R0M4K = 

.BYTE $00, $00, $00, $7C, $00, $00 
.BYTE $00, $00, $00, $00, $00, $30 
.BYTE $04, $08, $10, $20, $40, $80 

.ENDC 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



$38, $44, $44 
$08, $38, $08 
$38, $44, $08 
$38, $44, $18 
$08, $18, $28 
$7C,$40,$78 
$38, $40, $78 
$38, $44, $38 
$38, $44, $44 



,$44, $44, $38 
,$08, $08, $08 
,$10,$20,$7C 
,$04, $44, $38 
,$48,$7C,$08 
,$04, $44, $38 
,$44, $44, $38 
,$44, $44, $38 
,$3C,$04,$38 



$30, $48, $84, 
$F8,$84,$F8, 
$78, $84, $80, 
$F8,$84,$84, 
$FC,$80,$F8, 
$FC,$80,$F8, 
$78, $84, $80, 
$84,$84,$FC, 
$38, $10, $10, 
$1C,$08,$08, 
$88,$90,$A0, 
$80, $80, $80, 
$84,$CC,$B4, 
$84,$C4,$A4, 
$78, $84, $84, 
$F8,$84,$84, 
$78, $84, $84, 
$F8,$84,$84, 



$FC,$84,$84 
$84,$84,$F8 
$80, $84, $78 
$84,$84,$F8 
$80,$80,$FC 
$80, $80, $80 
$9C,$84,$7C 
$84, $84, $84 
$10, $10, $38 
$08, $88, $70 
$D0,$88,$84 
$80,$80,$FC 
$84, $84, $84 
$94,$8C,$84 
$84, $84, $78 
$F8,$80,$80 
$84, $94, $78 
$F8,$88,$84 



(space) 



code 
code 
code 



code 
code 
code 
code 
code 
code 
code 
code 
code 

code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 



45 '-' 

46 ' . ' 

47 '/' 



48 
49 
50 
51 
52 
53 
54 
56 
57 

65 
66 
67 
68 
69 
70 



'0' 
'1' 
'2' 
'3' 
'4' 
'5' 
'6' 
'8' 
'9' 

'A' 
'B' 
'C 

'D' 
'E' 
'F' 



71 'G' 

72 'H' 



73 
74 
75 
76 
77 
78 
79 
80 



'I' 
'J' 
'K' 
'L' 
'M' 
'N' 
'0' 
'P' 



81 'Q' 

82 'R' 
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387AI 
38801 
38861 
388CI 
38921 
38981 
389EI 
38A4I 
38AAI 
38AAI 
38AAI 
38AAI 
38B0I 
38B0I 
38B0I 
38B0I 
38B6I 
38B6I 
38B6I 
38B6I 
38BCI 
38BCI 
38BCI 
38BCI 
38BCI 
38BCI 
38BCI 
38BCI 
38BCI 
38C3I 
38C4I 
38CBI 
38CCI 
38D3I 
38D4I 
38DBI 
38DCI 
38E3I 
38E4I 
38EBI 
38ECI 
38F3I 
38F4I 
38FBI 
38FCI 
39031 
39041 



78 84 60 
FE 10 10 
84 84 84 
44 44 28 
82 82 92 
44 28 10 
82 44 28 
FC 08 10 



18 84 78 
10 10 10 
84 84 78 
28 10 10 
AA 44 44 
28 44 82 
10 10 10 
20 40 FC 



38 44 08 10 00 10 



C7 BB F7 EF FF EF 



08 77 FE FE 7F 3E 



IB 2D 
14 

34 35 
03 

00 00 
00 

00 00 
00 

2D 3D 
00 

OD 30 
00 

39 30 
5D 

4D 4C 
4F 

45 36 
59 
00 46 



11 12 

36 13 
00 00 
00 00 
00 00 
00 00 
55 49 
3B 27 

37 38 
47 48 



37 38 39 
2E 32 33 
00 00 00 
00 00 00 
50 08 00 
2F 31 00 
4A 4B 5B 
20 2C 2E 
35 52 54 
56 43 42 



.BYTE 


$78, $84, $60, $18, $84, $78 


code 


= 


83 


'S 


.BYTE 


$FE, $10, $10, $10, $10, $10 


code 


= 


84 


'T 


.BYTE 


$84, $84, $84, $84, $84, $78 


code 


= 


85 


'U 


.BYTE 


$44, $44, $28, $28, $10, $10 


code 


= 


86 


'V 


.BYTE 


$82, $82, $92, $AA, $44, $44 


code 


= 


87 


'W 


.BYTE 


$44, $28, $10, $28, $44, $82 


code 


= 


88 


'X 


.BYTE 


$82, $44, $28, $10, $10, $10 


code 


= 


89 


'Y 


.BYTE 


$FC , $08 , $10 , $20 , $40 , $FC 


code 


= 


90 


'Z 


. IF R0M4K 


= 










QUESTCH 












.BYTE 


$38, $44, $08, $10, $00, $10 


code 


= 


63 


' ? 


.ENDC 













INVCHAR 

.BYTE $C7,$BB,$F7,$EF,$FF,$EF 

.IF R0M4K = 
APPLICON 

.BYTE $08,$77,$FE,$FE,$7F,$3E 

.PAGE 
.ALIGN 2 



inverse of ? 



; apple icon 



Keycode to Ascii Table (assiomes alpha-lock so upper case only) 



AsciiTable 

.BYTE $1B,$2D,$11,$12,$37,$38,$39,$14 

. BYTE $34, $35, $36, $13, $2E, $32, $33, $03 

.BYTE $00, $00, $00, $00, $00, $00, $00, $00 

.BYTE $00 , $00 , $00 , $00 , $00 , $00 , $00 , $00 

.BYTE $2D,$3D,$00,$00,$50,$08,$00,$00 

.BYTE $0D,$30,$00,$00,$2F,$31,$00,$00 

.BYTE $39,$30,$55,$49,$4A,$4B,$5B,$5D 

.BYTE $4D,$4C,$3B,$27,$20,$2C,$2E,$4F 

.BYTE $45, $36, $37, $38, $35, $52, $54, $59 

.BYTE $00, $46, $47, $48, $56, $43, $42, $4E 



BMOOO 



Pad : Clear - Left Right 789 Up 

Pad : 456 Down .23 Enter 

unused 

unused 

- = 2*unused P BackSp 2*unused 

Ret Pad:0 2*unused / Pad:l 2*unused 

90UIJK[] 

ML;' Space ,.0 

E6785RTY 

Option FGHVCBN 
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390BI 
390CI 
39141 
391CI 
391CI 
391CI 
391CI 
391CI 
391CI 
391CI 
391CI 
391CI 
391CI 
39241 
392CI 
39341 
393CI 
393CI 
39411 
39461 
394BI 
394BI 
39521 
39531 
395AI 
395BI 
39621 
39631 
396AI 
396BI 
39731 
397AI 
397BI 
39831 
398AI 
398BI 
398BI 
39921 
39931 
399AI 
399BI 
39A2I 
39A3I 
39AAI 
39ABI 
39B2I 
39B3I 



4E 

41 32 33 34 31 51 53 

00 5A 58 44 00 00 00 



.BYTE $41, $32, $33, $34, $31, $51, $53, $57 
.BYTE $00, $5A, $58, $44, $00, $00, $00, $00 

.ENDC 

.IF USERINT = 1 



;A2341QSW 

;Tab ZXD unused Alpha Shift Cmd 



Icons 



CrsrData 
CrsrMask 



/arrow for mouse cursor 
/same for mask 



8000 COOO EOOO FOOO 
F800 FCOO FEOO FFOO 
F800 F800 CCOO 8C00 
0600 0600 0300 0300 

EO 60 60 60 FO 
EO 30 60 CO FO 
EO 30 60 30 EO 

FF FF FF 3F 03 FF 00 

FF 

FF FF EO 01 FF FF FF 

E4 

FF CO 70 2F F9 50 66 

9E 

CO 01 80 F7 03 79 56 

06 

74 FE OF FF FF FF FF 

FF FF 3F 01 AA 60 AA 

AF 

FF CO 03 07 C4 FF EO 

55 50 Fl FF FF F8 FF 

FF 

FF FF FF 3F 03 FF 00 

FF 

FF FF EO 01 FF FF FF 

C4 

FF CO 79 F2 40 F9 38 

EO 

BF EO EF FO 71 38 01 

80 

79 FC 03 CO FF FF FF 

FF 

FF FF FF 3F 01 FE CO 



ONE 
TWO 
THREE 

lObrd 



CPUbrd 



.WORD $8000,$C000,$E000,$F000 

.WORD $F800,$FC00,$FE00,$FF00 

.WORD $F800,$F800,$CC00,$8C00 

.WORD $0600, $0600, $0300, $0300 

.BYTE $E0,$60,$60,$60,$F0 

.BYTE $E0,$30,$60,$C0,$F0 

.BYTE $E0,$30,$60,$30,$E0 



;icon id = 1 
;icon id = 2 
;icon id = 3 



. BYTE $FF , $FF , $FF , $3F , $03 , $FF , $00 , $FF 

. BYTE $FF, $FF, $E0 , $01 , $FF, $FF, $FF, $E4 

.BYTE $FF,$C0,$70,$2F,$F9,$50,$66,$9E 

. BYTE $C0 , $01 , $80 , $F7 , $03 , $79 , $56 , $06 

.BYTE $74,$FE,$0F,$FF,$FF,$FF,$FF,$FF 
.BYTE $FF,$FF,$3F,$01,$AA,$60,$AA,$AF 

.BYTE $FF,$C0,$03,$07,$C4,$FF,$E0,$55 
. BYTE $55 , $50 , $F1 , $FF, $FF, $F8 , $FF, $FF 

. BYTE $FF , $FF , $FF , $3F , $03 , $FF , $00 , $FF 
. BYTE $FF, $FF, $E0 , $01 , $FF, $FF, $FF, $C4 
.BYTE $FF,$C0,$79,$F2,$40,$F9,$38,$E0 
.BYTE $BF,$E0,$EF,$F0,$71,$38,$01,$80 
. BYTE $79, $FC , $03 , $C0 , $FF , $FF , $FF , $FF 
. BYTE $FF, $FF , $FF, $3F, $01 , $FE , $C0 , $AA 
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39BA 


AA 














39BB 


AA 


BF 


CO 


03 


FC 


84 


IF 


39C2 


EO 














39C3 


01 


55 


55 


40 


El 


03 


FF 


39CE 
















39CE 


FF 


FF 


FF 


FF 


FF 


FF 


C3 MEMbrd 


39D5 


IF 














39D6 


FF 


FF 


CO 


80 


OF 


FF 


FF 


39DE 


07 


FF 


EO 


E3 


03 


FF 


FO 


39E5 


FF 














39E6 


FF 


FF 


71 


04 


5E 


88 


02 


39ED 


IC 














39EE 


8E 


50 


03 


8C 


70 


C7 


01 


39F5 


OC 














39F6 


20 


7B 


OE 


04 


OC 


5E 


88 


39FE 


FF 


D5 


57 


00 


FF 


80 


07 


3A06 


80 


03 


FF 


CO 


F3 


2A A8 


3A0D 


FC 














3A0E 


7F 


FC 


FF 


FF 


FF 


FF 




3A14 
















3A14 


FF 


FF 


FF 


FF 


FF 


FF 


El Xcard 


3A1C 


FF 


FF 


80 


FC 


FF 


FF 


FF 


3A24 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


3A2C 


FF 


FF 


DF 


03 


63 


EA 


AD 


3A34 


01 


3C 


CO 


06 


15 


50 


CF 


3A3B 


3F 














3A3C 


F8 














3A3D 


FF 


FF 


FF 


61 


IF 


FF 


FF waitic< 


3A45 


OF 


18 


FF 


FF 


FO 


OF 


FF 


3A4D 


86 


FO 


11 


FF 


FF 


88 


6D 


3A54 


05 














3A55 


AO 


02 


18 


80 


01 


40 


01 


3A5C 


4F 














3A5D 


F2 


CE 


80 


A8 


15 


F3 


54 


3A64 


2A 














3A65 


3C 


2A 


54 


14 


28 


CF 


08 


3A6C 


10 














3A6D 


FF 


3C 


08 


10 


14 


28 


CF 


3A74 


28 














3A75 


14 


F3 


50 


OA 


IC 


AO 


05 


3A7C 


01 














3A7D 


46 


62 


86 


80 


02 


88 


11 


3A84 


40 














3A85 


61 


05 


10 


08 


AO 


11 


18 


3A8C 


EO 














3A8D 


07 


88 


OF 


FF 


FF 


86 


FO 


3A94 


OF 















.BYTE $AA,$BF,$C0,$03,$FC,$84,$1F,$E0 

. BYTE $01 , $55 , $55 , $40 , $E1 , $03 , $FF, $FF 

.BYTE $EO,$FF,$FF 

. BYTE $FF, $FF, $FF, $FF, $FF, $FF, $C3 , $1F 

. BYTE $FF, $FF , $C0 , $80 , $0F, $FF , $FF, $80 
. BYTE $07 , $FF , $E0 , $E3 , $03 , $FF , $F0 , $FF 

. BYTE $FF, $FF, $71 , $04 , $5E, $88 , $02 , $1C 

.BYTE $8E,$50,$03,$8C,$70,$C7,$01,$0C 

.BYTE $20,$7B,$0E,$04,$0C,$5E,$88,$03 
. BYTE $FF, $D5 , $57 , $00 , $FF, $80 , $07 , $FF 
.BYTE $80,$03,$FF,$C0,$F3,$2A,$A8,$FC 

.BYTE $7F,$FC,$FF,$FF,$FF,$FF 

. BYTE $FF, $FF, $FF, $FF, $FF, $FF, $E1 , $01 
.BYTE $FF, $FF, $80 , $FC, $FF, $FF, $FF,$FF 
. BYTE $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF 
.BYTE $FF,$FF,$DF,$03,$63,$EA,$AD,$80 
.BYTE $01,$3C,$C0,$06,$15,$50,$CF,$3F 

.BYTE $F8 

.BYTE $FF,$FF,$FF,$61,$1F,$FF,$FF,$F8 
. BYTE $0F, $18 , $FF, $FF, $F0 , $0F, $FF, $FF 
.BYTE $86,$F0,$11,$FF,$FF,$88,$6D,$05 

. BYTE $A0 , $02 , $18 , $80 , $01 , $40 , $01 , $4F 

. BYTE $F2 , $CE , $80 , $A8 , $15 , $F3 , $54 , $2A 

.BYTE $3C,$2A,$54,$14,$28,$CF,$08,$10 

.BYTE $FF,$3C,$08,$10,$14,$28,$CF,$28 

.BYTE $14,$F3,$50,$0A,$1C,$A0,$05,$01 

.BYTE $46, $62, $86, $80, $02, $88, $11, $40 

.BYTE $61,$05,$10,$08,$A0,$11,$18,$E0 

.BYTE $07,$88,$0F,$FF,$FF,$86,$F0,$0F 
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3A95 


FF 


FF 


FO 


El 


IF 


FF 


FF 


3A9C 


F8 














3A9D 


FF 


FF 












3A9F 
















3A9F 


FF 


FF 


FF 


FF 


FF 


FF 


FF proicon 


3AA6 


FF 














3AA7 


FF 


00 


IF 


FF 


FF 


FF 


FF 


3AAE 


F8 














3AAF 


3F 


FF 


FO 


FF 


FF 


FF 


FC 


3AB7 


CC 


03 


7F 


01 


80 


CF 


03 


3ABE 


7F 














3ABF 


FC 


01 


80 


00 


3F 


FF 


FF 


3AC6 


FF 














3AC7 


FF 


FC 


IC 


FF 


60 


FF 


F3 


3ACE 


FF 














3ACF 


38 


03 


OC 


FD 


CO 


FF 


FF 


3AD6 


FF 














3AD7 


FF 


FF 


FF 










3ADA 


FF 


FF 


FF 


FF 


FF 


FF 


FF upper 


3AE1 


FF 














3AE2 


FF 


2F 


08 


IF 


FF 


08 


FF 


3AE9 


FC 














3AEA 


10 


IF 


FF 


FF 


FC 


02 


20 


3AF1 


IF 














3AF2 


FF 


FF 


FC 


47 


F8 


20 


IF 


3AF9 


FF 














3AFA 


FF 


FC 


80 


IF 


FF 


08 


FF 


3B01 


FC 














3B02 


80 


IF 


FF 


FF 


FC 


80 


47 


3B09 


F8 














3B0A 


IF 


FF 


FF 


FC 


20 


EO 


IF 


3B11 


FF 














3B12 


FF 


FC 


10 


FB 


08 


FF 


FF 


3B19 


FF 














3B1A 


FF 


FF 


FF 


FF 








3B1E 
















3B1E 


FF 


FF 


FF 


FF 


FF 


FF 


FF driven 


3B25 


FF 














3B26 


FF 


EF 


02 


38 


03 


FF 


04 


3B2D 


07 














3B2E 


FF 


22 


88 


3F 


FF 


F8 


11 


3B35 


FE 














3B36 


E8 


7F 


FF 


FC 


20 


8B 


20 


3B3D 


7F 














3B3E 


FF 


FC 


AO 


11 


FE 


3F 


FF 


3B46 


08 


E3 


07 


FF 


84 


F8 


03 


3B4D 


FF 















. BYTE $FF, $FF, $F0 , $E1 , $1F, $FF, $FF, $F8 

.BYTE $FF,$FF 

. BYTE $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF 

.BYTE $FF,$00,$1F,$FF,$FF,$FF,$FF,$F8 

. BYTE $3F , $FF , $F0 , $FF , $FF , $FF , $FC , $FF 
. BYTE $CC , $03 , $7F, $01 , $80 , $CF , $03 , $7F 

. BYTE $FC, $01 , $80 , $00 , $3F, $FF, $FF, $FF 

. BYTE $FF, $FC , $1C , $FF, $60 , $FF , $F3 , $FF 

.BYTE $38,$03,$0C,$FD,$C0,$FF,$FF,$FF 

.BYTE $FF,$FF,$FF 

. BYTE $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF 

.BYTE $FF,$2F,$08,$1F,$FF,$08,$FF,$FC 

. BYTE $10 , $1F , $FF, $FF, $FC , $02 , $20 , $1F 

. BYTE $FF, $FF , $FC , $47 , $F8 , $20 , $1F, $FF 

.BYTE $FF,$FC,$80,$1F,$FF,$08,$FF,$FC 

. BYTE $80 , $1F , $FF, $FF, $FC , $80 , $47 , $F8 

.BYTE $1F,$FF,$FF,$FC,$20,$E0,$1F,$FF 

. BYTE $FF, $FC , $10 , $FB , $08 , $FF , $FF, $FF 

.BYTE $FF,$FF,$FF,$FF 

. BYTE $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF 

.BYTE $FF,$EF,$02,$38,$03,$FF,$04,$07 

. BYTE $FF, $22 , $88 , $3F, $FF, $F8 , $11 , $FE 

. BYTE $E8 , $7F , $FF, $FC , $20 , $8B , $20 , $7F 

. BYTE $FF, $FC , $A0 , $11 , $FE , $3F , $FF, $F8 
.BYTE $08,$E3,$07,$FF,$84,$F8,$03,$FF 



;CHG024 



;CHG024 
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3B4E 


02 


FF 


FF 


FF 


FF 


FF 


FF 


3B55 


FF 














3B56 
















3B56 


FF 


79 


07 


FE 


OF 


C6 


FF insertd 


3B5D 


7F 














3B5E 


FF 


FO 


71 


FF 


FF 


F8 


OA 


3B65 


18 














3B66 


AA AA A8 


FA 


AA 


AA 


F6 


3B6D 


AO 














3B6E 


60 


E3 


03 


CO 


07 


38 


04 


3B75 


20 














3B76 


06 


08 


10 


FF 


F3 


08 


10 


3B7D 


3C 














3B7E 


04 


20 


03 


CO 


FF 


FF 


FF 


3B85 


FF 














3B86 


61 


IF 


FF 


FF 


F8 


OF 


38 


3B8D 


FF 














3B8E 


FF 


FO 


01 


80 


CF 


02 


40 


3B95 


F3 














3B96 


04 


20 


3C 


08 


10 


10 


08 


3B9E 


IC 


38 


FF 


FF 


CF 


03 


CO 


3BA5 


CF 


01 


CO 


FF 


3F 


OE 


38 keybdou 


3BAD 


08 


08 


F3 


04 


10 


3C 


02 


3BB4 


20 














3BB5 


01 


40 


DF 


80 


F3 


01 


CO 


3BBC 


3F 














3BBD 


01 


40 


20 


IB 


6D 


B6 


DB 


3BC4 


60 














3BC5 


16 


DB 


08 


6D 


B6 


DF 


3B 


3BCC 


6D 














3BCD 


B6 


DB 


80 


67 


80 


06 


DB 


3BD4 


6D 














3BD5 


B6 


D8 


FF 


OF 


4F 


FF 


FF 


3BDC 


FF 














3BDD 


00 


FF 


FO 


FF 


FF 


FF 


FF 


3BE5 


F8 


00 


IB 


6D 


B6 


D8 


36 


3BED 


IB 


6D 


00 


B6 


D8 


36 


CO 


3BF5 


6D 


B6 


D8 


00 


36 


CO 


IB 


3BFD 


B6 


D8 


36 


CO 


00 


IB 


6D 


3C04 


B6 














3C05 


D8 


36 


CO 


IB 


6D 


00 


B6 


3C0D 


36 


CO 


IB 


FF 


FF 


D8 


00 


3C15 


CO 


IB 


FF 


FF 


D8 


36 


CO 


3C1D 


FF 


FF 


FF 


FF 


FF 


F8 


7F 


3C24 


FF 














3C25 


FO 


FF 


FF 


FF 


FO 


FF 




3C2B 


FD 


EO 


FF 


F3 


07 


IC 


3C mouseoul 



. BYTE $02 , $FF , $FF , $FF , $FF , $FF , $FF , $FF 

.BYTE $FF,$79,$07,$FE,$0F,$C6,$FF,$7F 

. BYTE $FF, $F0 , $71 , $FF, $FF, $F8 , $0A, $18 

. BYTE $AA, $AA, $A8 , $FA, $AA, $AA, $F6 , $A0 

.BYTE $60,$E3,$03,$C0,$07,$38,$04,$20 

.BYTE $06,$08,$10,$FF,$F3,$08,$10,$3C 

. BYTE $04 , $20 , $03 , $C0 , $FF, $FF , $FF, $FF 

. BYTE $61 , $1F , $FF, $FF, $F8 , $0F , $38 , $FF 

. BYTE $FF, $F0 , $01 , $80 , $CF, $02 , $40 , $F3 

.BYTE $04,$20,$3C,$08,$10,$10,$08,$CF 
.BYTE $1C,$38,$FF,$FF,$CF,$03,$C0 
. BYTE $CF, $01 , $C0 , $FF, $3F, $0E , $38 , $CF 
. BYTE $08 , $08 , $F3 , $04 , $10 , $3C , $02 , $20 

. BYTE $01 , $40 , $DF, $80 , $F3 , $01 , $C0 , $3F 

.BYTE $01,$40,$20,$1B,$6D,$B6,$DB,$60 

.BYTE $16,$DB,$08,$6D,$B6,$DF,$3B,$6D 

.BYTE $B6,$DB,$80,$67,$80,$06,$DB,$6D 

.BYTE $B6,$D8,$FF,$0F,$4F,$FF,$FF,$FF 

. BYTE $00 , $FF, $F0 , $FF, $FF, $FF, $FF, $FF 
.BYTE $F8,$00,$1B,$6D,$B6,$D8,$36,$C0 
.BYTE $1B,$6D,$00,$B6,$D8,$36,$C0,$1B 
.BYTE $6D,$B6,$D8,$00,$36,$C0,$1B,$6D 
.BYTE $B6,$D8,$36,$C0,$00,$1B,$6D,$B6 

.BYTE $D8,$36,$C0,$1B,$6D,$00,$B6,$D8 
.BYTE $36,$C0,$1B,$FF,$FF,$D8,$00,$36 
.BYTE $C0,$1B,$FF,$FF,$D8,$36,$C0,$00 
. BYTE $FF, $FF, $FF, $FF, $FF, $F8 , $7F, $FF 

.BYTE $F0,$FF,$FF,$FF,$F0,$FF 
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3C3A 


AO 














.BYTE 


3C3B 


3D 


40 


01 


EO 


FF 


F3 


01 


.BYTE 


3C42 


20 
















3C43 


7F 


3F 


9C 


FF 


80 


FF 


FE 


.BYTE 


3C4A 


FF 
















3C4B 


FF 


3C 


7E 


7C 


FF 


FE 


CF 


.BYTE 


3C52 


IF 
















3C53 


FO 


F3 


OF 


EO 


3C 


OF 


EO 


.BYTE 


3C5B 


FO 


FF 


FF 


FF 


FF 


FF 


FF 


.BYTE 


3C62 


CF 
















3C63 


FF 


FE 












.BYTE 


3C65 


















3C65 


FF 


FF 


FF 


FF 


FF 


FF 


FF Question . BYTE 


3C6C 


FF 
















3C6D 


CF 


OF 


EO 


F3 


03 


80 


FE 


.BYTE 


3C74 


OC 
















3C75 


CF 


03 


80 


F7 


EO 


BF 


03 


. BYTE 


3C7D 


03 


FF 


FE 


03 


FF 


FF 


FF 


.BYTE 


3C84 


FF 
















3C85 


FF 


FF 


FF 










.BYTE 


3C88 


CF 


07 


80 


F3 


OE 


80 


BE checkmrk . BYTE 


3C8F 


IB 
















3C90 


36 


EF 


6C 


7B 


D8 


01 


9E 


.BYTE 


3C98 


03 


60 


E7 


06 


CO 


79 


OD 


.BYTE 


3C9F 


80 
















3CA0 


IB 


DF 


36 


F7 


6C 


3D 


D8 


.BYTE 


3CA7 


01 
















3CA8 


BO 


CF 


03 


60 


F3 


06 


CO 


.BYTE 


3CAF 


BC 
















3CB0 


OD 


80 


IB 


EF 


36 


FB 


6C 


.BYTE 


3CB8 


D8 


01 


BO 


E7 


03 


60 


38 


.BYTE 


3CBF 


F8 
















3CC0 


06 


CO 


DC 


OD 


CE 


80 


36 


.BYTE 


3CC8 


F3 


IB 


36 


3C 


OD 


EC 


06 


.BYTE 


3CD0 


CF 


03 


30 


F3 


01 


EO 




.BYTE 


3CD6 


















3CD6 


3C 


03 


CO 


02 


EO 


CF 


01 badmrk .BYTE 


3CDD 


BO 
















3CDE 


F7 


D8 


7D 


6C 


36 


DF 


IB 


.BYTE 


3rF.S 


E7 
















3CE6 


OD 


80 


79 


06 


CO 


03 


9E 


.BYTE 


3CEE 


01 


BO 


EF 


D8 


FB 


6C 


BE 


.BYTE 


3CF6 


IB 


CF 


OD 


80 


F3 


06 


CO 


.BYTE 


3CFE 


03 


60 


01 


BO 


DF 


D8 


F7 


.BYTE 


3D05 


6C 
















3D06 


7D 


36 


IB 


9F 


OD 


80 


E7 


. BYTE 


3D0E 


CO 


79 


03 


60 


01 


BE 


BO 


.BYTE 



$04,$02,$08,$CF,$01,$10,$F7,$A0 
$3D, $40 , $01 , $E0 , $FF, $F3 , $01 , $20 

$7F,$3F,$9C,$FF,$80,$FF,$FE,$FF 

$FF,$3C,$7E,$7C,$FF,$FE,$CF,$1F 

$F0,$F3,$0F,$E0,$3C,$0F,$E0,$1F 
$FO,$FF,$FF,$FF,$FF,$FF,$FF,$CF 

$FF,$FE 

$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF 

$CF,$0F,$E0,$F3,$03,$80,$FE,$0C 

$CF,$03,$80,$F7,$E0,$BF,$03,$EF 
$03 , $FF , $FE , $03 , $FF, $FF , $FF, $FF 

$FF,$FF,$FF 
$CF,$07,$80,$F3,$0E,$80,$BE,$1B 

$36,$EF,$6C,$7B,$D8,$01,$9E,$B0 
$03,$60,$E7,$06,$C0,$79,$0D,$80 

$1B,$DF,$36,$F7,$6C,$3D,$D8,$01 

$B0,$CF,$03,$60,$F3,$06,$C0,$BC 

$0D,$80,$1B,$EF,$36,$FB,$6C,$9E 
$D8 , $01 , $B0 , $E7 , $03 , $60 , $38 , $F8 

$06,$C0,$DC,$0D,$CE,$80,$36,$1B 
$F3,$1B,$36,$3C,$0D,$EC,$06,$D8 
$CF,$03,$30,$F3,$01,$E0 

$3C , $03 , $C0 , $02 , $E0 , $CF , $01 , $B0 

$F7,$D8,$7D,$6C,$36,$DF,$1B,$E7 

$0D,$80,$79,$06,$C0,$03,$9E,$60 
$01 , $B0 , $EF, $D8 , $FB, $6C , $BE, $36 
$1B,$CF,$0D,$80,$F3,$06,$C0,$3C 
$03,$60,$01,$B0,$DF,$D8,$F7,$6C 

$7D,$36,$1B,$9F,$0D,$80,$E7,$06 
$C0 , $79 , $03 , $60 , $01 , $BE , $B0 , $D8 
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3D15 


D8 














3D16 


EF 


6C 


FB 


36 


3E 


IB 


OE 


3D1D 


80 














3D1E 


FF 


FF 


FF 


FF 


IF 


03 


FF disk) 


3D25 


FF 














3D26 


86 


F8 


07 


FF 


FF 


F4 


EF 


3D2D 


OA 














3D2E 


FB 


05 


BC 


02 


80 


01 


FF 


3D36 


78 


84 


CF 


01 


02 


FF 


7C 


3D3D 


01 














3D3E 


02 


84 


DF 


78 


FF 


FF 


FF 


3D45 


7F 














3D46 


07 


10 


FF 


FF 


FF 


80 


03 


3D4D 


FF 














3D4E 


FF 


FE 


FF 


FF 


FF 


FF 




3D54 
















3D54 


FF 


OF 


03 


FF 


FF 


FF 


00 lisa 


3D5B 


FF 














3D5C 


CO 


07 


FF 


FF 


FF 


FF 


EO 


3D64 


OC 


FF 


FF 


FO 


30 


01 


FF 


3D6B 


70 














3D6C 


FF 


F8 


07 


80 


01 


9E 


FF 


3D73 


01 














3D74 


FF 


CF 


07 


80 


FF 


3F 


07 


3D7C 


E7 


01 


FF 


09 


01 


FF 


01 


3D83 


FF 














3D8B 


FF 














3D8C 


FO 


30 


00 


07 


FF 


FF 


FF 


3D94 


EO 


03 


FF 


00 


FF 


FF 


FF 


3D9B 


CO 














3D9C 


03 


FF 


FF 


FF 


00 


FF 


EO 


3DA3 


07 














3DA4 


FF 


FF 


FF 


FF 


FO 


61 


AA 


3DAB 


AA 














3DAC 


AA 


95 


FF 


18 


FF 


FF 


9F 


3DB3 


5F 














3DB4 


FF 


FD 


86 


IF 


OA AA A8 


3DBB 


15 














3DBC 


3F 


07 


FF 


00 


FF 


FF 


FF 


3DC3 


FO 














3DC4 


03 


FF 


FF 


FF 


FC 


FF 


EO 


3DCB 


FF 














3DCC 


FF 


FF 












3DCE 
















3DCE 
















3DCE 
















3DCE 

















.BYTE $EF,$6C,$FB,$36,$3E,$1B,$0E,$80 

.BYTE $FF,$FF,$FF,$FF,$1F,$03,$FF,$FF 

.BYTE $86,$F8,$07,$FF,$FF,$F4,$EF,$0A 

.BYTE $FB,$05,$BC,$02,$80,$01,$FF,$7D 
.BYTE $78,$84,$CF,$01,$02,$FF,$7C,$01 

.BYTE $02,$84,$DF,$78,$FF,$FF,$FF,$7F 

. BYTE $07 , $10 , $FF, $FF, $FF, $80 , $03 , $FF 

.BYTE $FF,$FE,$FF,$FF,$FF,$FF 

. BYTE $FF, $0F , $03 , $FF, $FF, $FF , $00 , $FF 

. BYTE $C0 , $07 , $FF, $FF, $FF, $FF , $E0 , $10 
.BYTE $0C,$FF,$FF,$F0,$30,$01,$FF,$70 

. BYTE $FF, $F8 , $07 , $80 , $01 , $9E , $FF, $01 

. BYTE $FF, $CF, $07 , $80 , $FF, $3F, $07 , $80 
. BYTE $E7 , $01 , $FF, $09 , $01 , $FF , $01 , $FF 

.BYTE $FF,$F8,$40,$07,$80,$0C,$FF,$FF 
. BYTE $F0 , $30 , $00 , $07 , $FF, $FF, $FF, $FF 
.BYTE $E0,$03,$FF,$00,$FF,$FF,$FF,$C0 

. BYTE $03 , $FF , $FF, $FF, $00 , $FF , $E0 , $07 

. BYTE $FF, $FF, $FF, $FF, $F0 , $61 , $AA, $AA 

.BYTE $AA,$95,$FF,$18,$FF,$FF,$9F,$5F 

.BYTE $FF,$FD,$86,$1F,$0A,$AA,$A8,$15 

.BYTE $3F,$07,$FF,$00,$FF,$FF,$FF,$F0 

. BYTE $03 , $FF , $FF , $FF , $FC , $FF , $E0 , $FF 

.BYTE $FF,$FF 

.ENDC 

.PAGE 
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3DCE 
















3DCE 
















3DCE 
















3DCE 
















3DCE 
















3DCE 
















3DCE 
















3DCE 
















3DCE 
















3DCE 


50 


4F 


57 


45 


52 


20 


43 


3DDC 


41 


54 


20 










3DDF 


00 














3DE0 


54 


49 


4D 


45 


20 


49 


53 


3DE7 


20 














3DE8 


00 














3DE9 


44 


52 


49 


56 


45 


20 


54 


3DF0 


45 


53 


54 










3DF3 


00 














3DF4 


4C 


4F 


4F 


50 


20 


43 


4F 


3DFB 


55 


4E 


54 


20 


49 


53 


20 


3E02 


00 














3E03 


50 


4D 


20 


42 


55 


53 


20 


3E0F 


00 














3E10 


46 


4C 


4F 


50 


50 


59 


20 


3E1E 


49 


4C 


45 


44 








3E22 


00 














3E23 


46 


4C 


4F 


50 


50 


59 


20 


3E31 


4F 


55 


4E 


54 


20 


49 


53 


3E38 


20 














3E39 


00 














3E3A 
















3E3A 
















3E3A 
















3E3A 
















3E3A 
















3E3A 
















3E3A 
















3E3A 


54 


45 


53 


54 


49 


4E 


47 


3E41 


00 














3E42 


54 


45 


53 


54 








3E46 


00 














3E47 


45 


53 


20 


57 


49 


52 


44 


3E4E 


20 


47 


45 


54 


45 


53 


54 


3E55 


45 


54 












3E57 


00 














3E58 


52 


45 


53 


54 


41 


52 


54 


3E5F 


00 















.LIST 
Message Table 



.IF USERINT = 

.ENDC 

.IF BUENIN = 1 

BRNMSG .ASCII 'POWER CYCLING AT ' 

.BYTE 

TIMMSG .ASCII 'TIME IS ' 

.BYTE 

TWGMSG .ASCII 'DRIVE TEST' 

.BYTE 

LCX)PMSG .ASCII 'LCX)P COUNT IS ' 

.BYTE 

PMMSG .ASCII 'Ml BUS ERROR' 

.BYTE 

TWGFAIL .ASCII 'FLOPPY TEST FAILED' 

.BYTE 

TWGRSLT .ASCII 'FLOPPY ERROR COUNT IS 



.BYTE 

.ENDC 

.IF R0M4K = 
.IF USERINT = 
.ELSE 

CHKMSG . ASCI I ' TESTING ' 

.BYTE 

.ASCII 'TEST' 

.BYTE 

.ASCII 'ES WIRD GETESTET' 



.BYTE 

RTRYMSG .ASCII 'RESTART' 

.BYTE 



/{USERINT} 



RMOOO 



; RMOOO 



/Frencdi translation 
/German translation 
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3E60 


52 


45 


43 


4F 


4D 


4D 


45 




.ASCII 


'RECCMMENCER' 


3E67 


4E 


43 


45 


52 














3E6B 


00 
















.BYTE 





3E6C 


4E 


45 


55 


20 


53 


54 


41 




.ASCII 


'NEU STARTEN' 


3E73 


52 


54 


45 


4E 














3E77 


00 
















.BYTE 





3E78 






















3E78 


43 


4F 


4E 


54 


49 


4E 


55 


CONTMSG 


.ASCII 


'CONTINUE' 


3E7F 


45 




















3E80 


00 
















.BYTE 





3E81 


43 


4F 


4E 


54 


49 


4E 


55 




.ASCII 


'CONTINUER' 


3E88 


45 


52 


















3E8A 


00 
















.BYTE 





3E8B 


57 


45 


49 


54 


45 


52 


4D 




.ASCII 


'WEITERMACHEN' 


3E92 


41 


43 


48 


45 


4E 












3E97 


00 
















.BYTE 





3E98 






















3E98 


53 


54 


41 


52 


54 


55 


50 


STRTMSG 


.ASCII 


'STARTUP FROM' 


3EA4 


00 
















.BYTE 





3EA5 


44 


45 


4D 


41 


52 


52 


45 




.ASCII 


'DEMARRER DE' 


3EAC 


52 


20 


44 


45 














3EB0 


00 
















.BYTE 





3EB1 


53 


54 


41 


52 


54 


45 


4E 




.ASCII 


'STARTEN VON' 


3EB8 


20 


56 


4F 


4E 














3EBD 


















.BYTE 





3EBD 


2E 


2E 


2E 










PERIODS 


.ASCII 


' . . . ' 


3EC0 


00 
















.BYTE 





3EC1 






















3EC1 


4F 


50 


54 


49 


4F 


4E 


53 


MENUHDG 


.ASCII 


' OPTIONS ' 


3EC8 


00 
















.BYTE 





3EC9 






















3EC9 


44 


49 


53 


50 


4C 


41 


59 


DISPMSG 


.ASCII 


'DISPLAY MEM 1 


3ED0 


20 


4D 


45 


4D 


20 


20 


20 








3ED7 


31 




















3ED8 


00 
















.BYTE 





3ED9 


53 


45 


54 


20 


4D 


45 


4D 


SETMSG 


.ASCII 


'SET MEMORY 2 


3EE7 


32 




















3EE8 


00 
















.BYTE 





3EE9 


43 


41 


4C 


4C 


20 


50 


52 


CALLMSG 


.ASCII 


'CALL PROGRAM 3 


3EF0 


4F 


47 


52 


41 


4D 


20 


20 








3EF7 


33 




















3EF8 


00 
















.BYTE 





3EF9 


















.IF R0M16K = 1 


3EF9 


4C 


4F 


4F 


50 


20 


4F 


4E 


LPMSG 


.ASCII 


'LOOP ON TEST 4 


3F00 


20 


54 


45 


53 


54 


20 


20 








3F07 


34 




















3F08 


00 
















.BYTE 






; Frencdi 



/German 



/French 



/German 



/ French 



/German 
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3F09 


















.ENDC 




3F09 






















3F09 


41 


44 


4A 


55 


53 


54 


20 


VIDMSG 


-ASCII 


'ADJUST VIDEO 5 


3F10 


56 


49 


44 


45 


4F 


20 


20 








3F17 


35 




















3F18 


00 
















.BYTE 





3F19 






















3F19 


















.IF BUPNIN = 1 


3F19 


50 


4F 


57 


45 


52 


20 


43 


CYCLMSG 


.ASCII 


'POWER CYCLE 6 


3F20 


59 


43 


4C 


45 


20 


20 


20 








3F27 


36 




















3F28 


00 
















.BYTE 





3F29 


















.ENDC 




3F29 






















3F29 


51 


55 


49 


54 


20 


20 


20 


QUITMSG 


.ASCII 


'QUIT 7 


3F30 


20 


20 


20 


20 


20 


20 


20 








3F37 


37 




















3F38 


00 
















.BYTE 





3F39 






















3F39 


F4 


Fl 


F2 










MENOID 


.BYTE 


KEY1,KEY2,KEY3 


3F3C 






















3F3C 


















.IF R0M16K = 1 


3F3C 


F3 
















.BYTE 


KEY4 


3F3D 


















.ENDC 




3F3D 






















3F3D 


E4 
















.BYTE 


KEY5 


3F3E 






















3F3E 


















.IF BUPNIN = 1 


3F3E 


El 
















.BYTE 


KEY6 


3F3F 


















.ENDC 




3F3F 






















3F3F 


E2 
















.BYTE 


KEY7 


3F40 






















3F40 


















.ENDC 




3F40 


















.IF R0M16K = 1 


3F40 


















.IF FUT.TiSCC = 


3F40 


















.ENDC 




3F40 


31 


20 


2D 


20 


52 


4F 


4D 


TSTMENU 


.ASCII 


'1 - ROM' 


3F47 


OD 
















.BYTE 


RET 


3F48 


32 


20 


2D 


20 


4D 


4D 


55 




.ASCII 


'2 - MMU' 


3F4F 


OD 
















.BYTE 


RET 


3F50 


33 


20 


2D 


20 


56 


49 


44 




.ASCII 


'3 - VIDEO' 


3F57 


45 


4F 


















3F59 


OD 
















.BYTE 


RET 


3F5A 


34 


20 


2D 


20 


50 


41 


52 




.ASCII 


'4 - PARITY' 


3F61 


49 


54 


59 
















3F64 


OD 
















.BYTE 


RET 



/menu id table 



;RM000 



;RM000 
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3F65 


35 


20 


2D 


20 


50 


41 


52 




.ASCII 


'5 - 


PARA VIA 


3F6C 


41 


20 


56 


49 


41 














3F71 


OD 
















.BYTE 


RET 




3F72 


36 


20 


2D 


20 


4B 


59 


42 




.ASCII 


'6 - 


KYBD VIA 


3F79 


44 


20 


56 


49 


41 














3F7E 


OD 
















.BYTE 


RET 




3F7F 


37 


20 


2D 


20 


43 


4F 


50 




.ASCII 


'7 - 


COPS' 


3F86 


53 






















3F87 


OD 
















.BYTE 


RET 




3F88 


38 


20 


2D 


20 


53 


43 


43 




.ASCII 


'8 - 


sec 


3F8F 


OD 
















.BYTE 


RET 




3F90 


39 


20 


2D 


20 


44 


49 


53 




.ASCII 


'9 - 


DISK' 


3F97 


4B 






















3F98 


OD 
















.BYTE 


RET 




3F99 


41 


20 


2D 


20 


43 


4C 


4F 




.ASCII 


'A - 


CLOCK' 


3FA0 


43 


4B 




















3FA2 


OD 
















.BYTE 


RET 




3FA3 


42 


20 


2D 


20 


4D 


45 


4D 




.ASCII 


'B - 


MEMORY' 


3FAA 


4F 


52 


59 


















3FAD 


OD 
















.BYTE 


RET 




3FAE 


43 


20 


2D 


20 


49 


4F 


20 




.ASCII 


'C - 


10 SLOTS 


3FB5 


53 


4C 


4F 


54 


53 














3FBA 


00 
















.BYTE 







3FBB 


















.ENDC 






3FBB 
























3FBB 


















. IF USERINT 


= 


3FBB 


















.ELSE 






3FBB 


41 


44 


44 


52 


45 


53 


53 


ADDPMSG 


.ASCII 


'ADDRESS ?' 


3FC2 


20 


3F 




















3FC4 


00 
















.BYTE 







3FC5 


44 


41 


54 


41 


20 


3F 




DATAMSG 


.ASCII 


'DATA ?' 


3FCB 


00 
















.BYTE 







3FCC 


43 


4F 


55 


4E 


54 


20 


3F 


CNTMSG 


.ASCII 


'COUNT ?' 


3FD3 


00 
















.BYTE 







3FD4 


54 


45 


53 


54 


20 


3F 




TSTMSG 


.ASCII 


' TEST ? ' 


3FDA 


00 
















.BYTE 







3FDB 
























3FDB 


















.ENDC 






3FDB 


57 


48 


41 


54 


20 


3F 




WHATMSG 


.ASCII 


'WHAT ?' 


3FE1 


00 
















.BYTE 







3FE2 
























3FE2 


















.ENDC 






3FE2 
























3FE2 


















.ENDCR0M4K = 


1 


3FE2 
























3FE2 


















.IF R0M8K = 


1 


3FE2 


















.ENDC 







;RM000 



;RM000 



: {R0M4K} 
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3FE2 
3FE2 
3FE2 
3FF4 
3FF4 
3FF4 
3FFB 
3FFC 
3FFC 
3FFC 
3FFD 
3FFE 
3FFE 
3FFE 
3FFE 
4000 



00 00 00 00 00 00 00 



.IF R0M16K = 1 
.ORG $3FF4 



CHG005 



************* COPYRIGHT NOTICE *************************************** 
43 38 34 41 50 50 4C HDGMSG .ASCII 'C84APPLE' ; CHG005 

45 

********************************************************************** 



02 
48 



0000 



VRSN .BYTE $02 
REV .ASCII 'H' 
.ENDC 



LAST 



.WORD $0000 
.END 



;version 2 
; rev H 



;checksimi word for RCM test 



CHGOOl 
CHGOOl 



SYMBOLTABLE DUMP 



AB - Absolute LB 
RF - Ref DF 

A5 - A5 Global 32 



Label UD - 
Def PR - 
32 -bit Global 



Undefined 
Proc 



MC 

FC 



Macro 
Func 



A6SAV AB 
ACHK2 LB 
ACTDATA AB 
ADR128K AB 
ADREXCP AB 
ADRREGS AB 
ADRVCTR AB 
ALBOXCOL AB 
ALPHKEY AB 
ALRTHIGH AB 
ALRTWIDT AB 
ALTCOL AB 
APPLICON LB 
B96DATA LB 
BADHDR AB 
BADSM AB 
BASE LB 
BEGIN LB 
BERR LB 
BLACK LB 
BLKL AB 
BLKSIZE AB 
BMENUSPC AB 
BOOTDATA AB 



000001F8 
0000029C 
00000274 
00020000 
00000006 
OOOOOIEO 
OOOOOOOC 
00000006 
OOOOOOFD 
000000A4 
0000004E 
00000014 
000038B6 
00001038 
00000054 
0000005C 
00000000 
000000F6 
00000742 
000035FC 
00000003 
00000200 
00000BF4 
000001B4I 



AAPL 
ACRl 
ACTL 
ADRCHK 



AB 
AB 
AB 
LB 



ADRLTCH AB 
ADRTST LB 
AERR LB 
ALBOXROW AB 
ALRMSAV AB 
ALRTROW AB 
ALTBMSK AB 
ALTKYADD AB 
APPLQUAL AB 
B96LTH AB 
BADMRK LB 
BADST AB 
BASICTST LB 
BEGIN2 LB 
BFAIL2 LB 
BLACKEN LB 
BLKM AB 
BMENU AB 
BMENUWID AB 
BOOTDVCE AB 



00000000 
00000016 
00000002 
00000EF6 
OOOOOIAA 
00000EE6 
0000074E 
00000031 
OOFCCIBI 
00000073 
70000000 
00000445 
00009FFF 
00000010 
00003CD6 
0000005D 
00000E6A 
00000152 
00001F3E 
00003106 
00000002 
00000001 
00000012 
000001B3I 



ACHKl LB 
ACTADDR AB 
ADDRMSG LB 
ADRCLR LB 
ADRMSK AB 
ADRVCT LB 
AKEY AB 
ALPHA LB 
ALRTCOL AB 
ALRTSTRT AB 
ALTBOOT AB 
APPLENET AB 
ASCIITAB LB 
BADBRD LB 
BADRSP AB 
BADTHDR AB 
BEEP LB 
BEGIN3 LB 
BKEY AB 
BLKH AB 
BLKNUM AB 
BMENULEN AB 
BOOTCHK LB 
BOOTFAIL LB 



00000286 
00000270 
00003FBB 
OOOOOFOO 
00000003 
OOOOOOOC 
OOOOOOFO 
000016A8 
00000010 
00001140 
OOOOOOIC 
00008001 
000038BC 
000021A2 
00000052 
00000026 
00000AE8 
0000018A 
OOOOOOEE 
00000001 
00000536 
00000022 
000016E6 
00001F3A 



Computer Boot ROM 2.48 Listing • 248 of 265 



BOOTMEM 


AB 


00000188 


BOOTMENU 


LB 


000018F8 


BOOTMSK 


AB 


008FFFFF 


BOOTPAT 


AB 


OOOOAAAA 


BOTSIDE 


AB 


00000001 


BOUNDS 


LB 


00002F7C 


BRNMSG 


LB 


00003DCE 


BS 


AB 


00000008 


BSR2 


MC 




BSR4 


MC 




BSR6 


MC 




BSRS2 


MC 




BSRS4 


MC 




BSRS6 


MC 




BSY 


AB 


00000001 


BSYTIME 


AB 


00000500 


BTENTRY 


AB 


00020002 


BTERR 


LB 


00001D2A 


BTMENU 


AB 


OOOOOOID 


BTN 


AB 


00000006 


BTNIMSG 


AB 


00001C08 


BTN3MSG 


AB 


00003DC8 


BTN3STRT 


AB 


00003A36 


BTNCOL 


AB 


00000034 


BTNHIGH 


AB 


OOOOOOIC 


BTNMSPC 


AB 


00000392 


BTNROW 


AB 


00000045 


BTNSPC 


AB 


OOOOIOEO 


BTNWIDTH 


AB 


OOOOOOOA 


BURNIN 


AB 


00000001 


BUSEXCP 


AB 


00000005 


BUSVCT 


LB 


00000008 


BUSVCTR 


AB 


00000008 


BUTN 


AB 


00000003 


BUTNl 


AB 


00000001 


BUTN2 


AB 


00000005 


BYTESPER AB 


00000007 


CALL3 


LB 


00000E6C 


CALLBASE 


AB 


00000480 


CALLMSG 


LB 


00003EE9 


CALLRTN 


LB 


00002908 


CFGEXIT 


LB 


00001370 


CHARROWS 


AB 


OOOOOOIB 


CHECK 


LB 


000035FE 


CHECKMRK 


LB 


00003C88 


CHECKSUM 


LB 


00000CB2 


CHKBASE 


LB 


0000025E 


CHKBSY 


LB 


00001F82 


CHKCMD 


AB 


00000005 


CHKCNT 


AB 


OOOOOOBA 


CHKCNT2 


AB 


000000C4 


CHKCPU 


LB 


000035B6 


CHKDRIVE 


LB 


00001D5C 


CHKFDIR 


LB 


00001E96 


CHKFIN 


LB 


00001E3E 


CHKHI 


LB 


000004E2 


CHKICONS 


LB 


00001B68 


CHKID 


LB 


00001380 


CHKINPUT 


LB 


00002EA2 


CHKIOBRD 


LB 


000035C6 


CHKIT 


LB 


00002C52 


CHKIT2 


LB 


00002CBE 


CHKLO 


LB 


0000045E 


CHKMADR 


LB 


0000153C 


CHKMBRD 


LB 


000035BE 


CHKMEM 


LB 


00000508 


CHKMSG 


LB 


00003E3A 


CHKPAS2 


LB 


00002244 


CHKPASS 


LB 


0000223A 


CHKPM 


LB 


00001836 


CHKPOSN 


LB 


00002E46 


CHKPROFI 


LB 


00001A36 


CHKPXIT 


LB 


00002E9C 


CHKROW 


AB 


0000004B 


CHKRW 


LB 


000002B4 


CHKS2 


LB 


000019EE 


CHKS3 


LB 


OOOOIAOO 


CHKSLOT 


LB 


00001B44 


CHKSXIT 


LB 


00001B94 


CHKTIM 


LB 


0000229A 


CHKVCT 


LB 


00000018 


CHKXCRD 


LB 


000035CE 


CHRHIGH 


AB 


00000008 


CHRSPC 


AB 


OOOOOOOA 


CHRWIDTH 


AB 


00000001 


CKEY 


AB 


OOOOOOED 


CKLOOP 


LB 


00001890 


CKXIT 


LB 


000018AE 


CLAMP 


AB 


00000009 


CLICK 


LB 


OOOOOAEF. 


CLK 


AB 


OOOOOOOE 


CLKDATA 


AB 


OOOOOIBA 


CLKERR 


LB 


000012E2 


CLKSAVE 


AB 


OOFCClAl 


CLKTST 


LB 


0000128C 


CLMPERR 


AB 


00000016 


CLOCKBYT 


AB 


00000480 


CLRDBOX 


LB 


00002C28 


CLRDESK 


LB 


000030DA 


CLRFDIR 


LB 


00001E72 


CLRINT 


LB 


00001C24 


CLRIT 


LB 


00002B7A 


CLRMENU 


LB 


00003114 


CLRPM 


LB 


00002250 


CLRRST 


LB 


00000AC4 


CLRSCRN 


LB 


000026F0 


CLRSTAT 


AB 


00000085 


CMD 


AB 


00000002 


CMDBUFR 


AB 


00000304 


CMDCHK 


LB 


00001E04 


CMDDWN 


AB 


OOOOOOFF 


CMDERR 


LB 


0000245E 


CMDFLG 


AB 


00000003 


CMDKEY 


AB 


OOOOOOFF 


CMDTIME 


AB 


00120000 


CMDUP 


AB 


0000007F 


CNFRM 


AB 


OOOOOOOE 


CNTINC 


LB 


0000238A 


CNTMSG 


LB 


00003FCC 


COARSE 


LB 


00002F6C 


CODECOL 


AB 


00000012 


CODEROW 


AB 


00000097 


COLISTRT 


AB 


00001B72 


C0L2MID 


AB 


000039BC 


C0L2STRT 


AB 


00001B7E 


C0L3STRT 


AB 


00001B8A 


COMPARE 


LB 


00003150 


CONCHK 


LB 


00000410 


CONFIG 


LB 


000012EE 


C0NFIG2 


LB 


000012F6 


CONOFF 


LB 


00000800 


CONOK 


LB 


0000043E 


CONSET 


LB 


000007FA 


C0NSET2 


LB 


00000802 


CONT 


LB 


00003132 


CONTCHK 


LB 


0000265E 


CONTMSG 


LB 


00003E78 


CONTMSK 


AB 


001E3FFA 


CONTXT 


AB 


00000538 


CONVERT 


LB 


00002BF4 


C0NVRTD5 


LB 


000036EE 
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COPSO LB 
C0PS4 LB 
COPSCMD LB 
C0PY6 LB 
CPSINIT LB 
CPUMSK AB 
CRSRBUSY AB 
CRSRHIDD AB 
CRSRMASK LB 
CRSRVISI AB 
CRTCOL AB 
CSTRB AB 
CURSORIN LB 
CYCLVAL AB 
DATAMSG LB 
DBOXDSPL LB 
DBOXROW AB 
DBOXWIDT AB 
DDRBl AB 
DEFCOL AB 
DEFVID AB 
DELAYS LB 
DESKLMT AB 
DG20N AB 
DISABLE MC 
DISKCOL AB 
DISKROM AB 
DIVOVCT LB 
DLYCNST AB 
DOCRES LB 
DONE LB 
DOSUM LB 
DRAWSIDE LB 
DRV AB 
DRVCOL AB 
DRVTYPE AB 
DSABLDSK LB 
DSCONT LB 
DSK2IN AB 
DSKBUFF AB 
DSKCNTL AB 
DSKDIS LB 
DSKERR3 LB 
DSKRSLT AB 
DSKTMOUT AB 
DSKXIT LB 
DSPALRTM LB 



00002D38 
00002D9E 
00000956 
00002092 
00000920 
OOOOOOOF 
0000049B 
0000049E 
0000391C 
0000049C 
00000302 
OOFCDOIC 
00002FCC 
00FCC1C3 
00003FC5 
00002C0A 
00000018 
00000042 
00000004 
0000003E 
0000002F 
00000AD4 
00007FF8 
00FCE006 



00000004 
00FCC031 
00000014 
00000009 
00002146 
0000360A 
0000019E 
00003342 
00000004 
00000003 
00FCC015 
00001D46 
000023FC 
00000004 
000003E8 
00FCC19F 
OOOOICCO 
00001D14 
000002AE 
001C8000 
00001180 
000036DAI 



COPSl LB 
COPSBAD LB 
COPSENBL LB 
C0PY6LP LB 
CPUBRD LB 
CPUSEL AB 
CRSRDATA LB 
CRSRHOTX AB 
CRSROBSC AB 
CRSRX AB 
CRTROW AB 
CURSORDI LB 
CYCLCNT AB 
D7SAV AB 
DATARGS AB 
DBOXHIGH AB 
DBOXSTRT AB 
DDRAl AB 
DDRB2 AB 
DEFROW AB 
DEFVID2 AB 
DELAY_1 LB 
DESKPATR AB 
DIAGS AB 
DISINT LB 
DISKETTE LB 
DISKROW AB 
DLCNT AB 
DLYTIME AB 
DODSPLY LB 
DOREAD LB 
DRAWBUTN LB 
DRIVE AB 
DRVl AB 
DRVERR AB 
DRWHORZ LB 
DSABLINT AB 
DSCRACH AB 
DSKBAD LB 
DSKCHK LB 
DSKDATA AB 
DSKERR LB 
DSKIN AB 
DSKSIZE AB 
DSKTST LB 
DSPALL LB 
DSPBAD LB 



00002D48 
0000090A 
000008EA 
000020A0 
0000398B 
00000001 
0000391C 
00000490 
000004A0 
00000496 
00000300 
0000300E 
OOFCCICI 
OOOOOIAC 
OOOOOICO 
00000014 
0000071E 
00000006 
00000010 
000000A4 
OOOOOOAF 
OOOOOACC 
AAAA5555 
00000001 
00002364 
00003D1E 
00000012 

00100000 
000035AE 
00001C2C 
000032F8 
00000535 
00000000 
00000007 
00002A26 
00000087 
FFFFFF18 
OOOOICAA 
00001C9A 
00000400 
00001CC4 
00000002 
000006A6 
OOOOllOC 
00003686 
000034EC 



C0PS2 LB 
COPSCHK LB 
COPSVCT LB 
CPIOMSK AB 
CPUINTR AB 
CPUSTRT AB 
CRSRHEIG AB 
CRSRHOTY AB 
CRSRTRAC AB 
CRSRY AB 
CSBIT AB 
CURSORHI LB 
CYCLMSG LB 
DATABFR AB 
DBOXCOL AB 
DBOXLEFT AB 
DBOXTOP AB 
DDRA2 AB 
DEBUG AB 
DEFSTRT AB 
DELAY LB 
DESKLINE AB 
DG20FF AB 
DIE AB 
DISK AB 
DISKMEM AB 
DISPMSG LB 
DLOOP LB 
DOBOOT LB 
DOMENU LB 
DORESET LB 
DRAWDESK LB 
DRIVEN LB 
DRV2 AB 
DRVROW AB 
DRWVERT LB 
DSAVARRY AB 
DSKIIN AB 
DSKBSY AB 
DSKCNTH AB 
DSKDIAG AB 
DSKERR2 LB 
DSKOUT LB 
DSKTIMER LB 
DSKVCT LB 
DSPALRTI LB 
DSPCH LB 



00002D5C 
OOOOllCO 
00000916 
OOIFFFFF 
00000004 
00001DF6 
00000494 
00000492 
0000049A 
00000498 
00000005 
00002FEA 
00003F19 
00020000 
00000018 
00000014 
00000168 
00000018 
00000000 
000039E6 
00000AE2 
000005FA 
00FCE004 
00000089 
00000011 
OOFCCOOl 
00003EC9 
000035EC 
000016E2 
000025EC 
00002652 
000030D6 
00003B1E 
00000080 
00000006 
00002A40 
FFFFFFF8 
00000000 
00000051 
00FCC19D 
00000006 
OOOOIDOE 
OOOOICBC 
00001C98 
00001186 
0000352C 
000016B0 
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DSPCHECK LB 
DSPCPU LB 
DSPDEC LB 
DSPERRIC LB 
DSPICON LB 
DSEMBBD LB 
DSEMENUB LB 
DSEMSGR LB 
DSPNUMIC LB 
DSPRGICO LB 
DSPVAL LB 
DSPXCRD LB 
DVCECHK LB 
EBUSEXCP AB 
ECPUINTR AB 
EILLEXCP AB 
EIOEXCP AB 
EJCTTIME AB 
EMISEXCP AB 
ENBLDRVS LB 
ENQKBD LB 
ERRCOL AB 
ERRROW AB 
ERS232B AB 
EVIA2 AB 
EXCFC AB 
EXCLUSIV LB 
EXCPC AB 
EXCTYPE AB 
EXMSK AB 
EXTERNAL AB 
FDIRTIME AB 
FINDERR LB 
FINKBD AB 
FIRSTROW AB 
FMTTIME AB 
FULLSCC AB 
GE.'Yl LB 

CaiTBITSl LB 
GETCH LB 
GETERR LB 
GETIT LB 
GETLIXIT LB 
GETNIBBL LB 
GETPARM LB 
GETSTAT LB 
GOTOMON LB 



000035D4 
00003588 
00001630 
000034DA 
000035E2 
00003592 
000027D0 
000036F6 
00003450 
00003424 
0000373A 
000035A6 
00001754 
0000002D 
0000002C 
00000030 
0000003A 
00180000 
0000002F 
00002E2A 
00002B86 
00000010 
00000073 
00000038 
00000033 
00000280 
0000314E 
0000028A 
0000028E 
000003F0 
00000000 
OOCOOOOO 
000020E6 
00000001 
0000003E 
01800000 
00000001 
00002CBA 
OOOOOCIC 
00002B96 
000026E6 
00000AA2 
000026DA 
00000D34 
00002BB2 
00002060 
000015CC 



DSPCLK LB 
DSPCPORM LB 
DSPDONE LB 
DSPFRNCH LB 
DSPIOB LB 
DSPMEM LB 
DSPMNTRY LB 
DSPMSLSH LB 
DSPOUT LB 
DSPSTRIN LB 
DSPVXIT LB 
DSTACK AB 
EADREXCP AB 
ECLK AB 
ECPUSEL AB 
EIOCOP AB 
EIOKBD AB 
EKBDCOP AB 
EMMU AB 
ENBLINT AB 
ENTRKEY AB 
ERRDISP LB 
ERRSTRT AB 
ETRPEXCP AB 
EVID AB 
EXCHK LB 
EXCPO LB 
EXCPERR LB 
EXIT LB 
EXPAND LB 
FASTMR AB 
FILEID AB 
FINDSYNC LB 
FINLISA AB 
FIVESEC AB 
FNDXIT LB 
GETO LB 
GET3 LB 
GETBITS2 LB 
GETDATA LB 
GETEXIT LB 
GETJMP LB 
GETLENGT LB 
GETNTRY LB 
GETROWCO LB 
GETXIT2 LB 
GRAY LB 



000024CA 
000008DC 
00003716 
000036AA 
0000359C 
00002836 
00001A94 
000036D2 
000036B0 
00003634 
000037B4 
FFFFFF18 
0000002E 
00000036 
00000029 
00000034 
0000003C 
00000035 
00000028 
00000086 
OOOOOOAF 
000014EA 
0000287E 
00000031 
0000002A 
0000140E 
00000758 
00000030 
00000CF8 
000018B0 
00000006 
00000004 
OOOOODOA 
00000000 
001312D0 
000020F6 
000009F0 
00002D0C 
00000C50 
00000A7E 
00002BE8 
00000A38 
00003418 
00002E5A 
00003406 
00002BF2 
000030EE 



DSPCODE LB 

DSPCXIT LB 

DSPERR LB 

DSPGERMN LB 

DSPIT LB 

DSPMENU LB 

DSPMSG LB 

DSPNUM LB 

DSPQICON LB 

DSPTIM LB 

DSPWTICO LB 

DVCCODE AB 

EBOOT AB 

ECPAR AB 

EDISK AB 

EI0C0P2 AB 

EJCTDSK LB 

EMEM AB 

ENABLE MC 

ENDPM AB 

EPAR AB 

ERRMSK AB 

ERS232A AB 

EVIAl AB 

EXCADR AB 

EXCIR AB 

EXCPl LB 

EXCSR AB 

EXMEM AB 

EXRW AB 

FDIR AB 

FINDD2 LB 

FINE LB 

FIRSTCOL AB 

EMT AB 

FONTTBL LB 

GETl LB 

GETA LB 

GETBYTES LB 

GETDIG LB 

GETINPUT LB 

GETLl LB 

GETLEV2 LB 

GETPADDR LB 

GETRSP LB 

GLOBALS AB 

GRAYl LB 



00001622 
00001668 
0000244E 
000036A6 
000036B8 
00002744 
00003700 
00003464 
00003556 
00002398 
00001EA6 
00PCC189 
0000004B 
0000002B 
00000039 
0000003B 
00001E56 
00000046 

OOFCCIFF 
00000047 
0E7FFFFF 
00000037 
00000032 
00000282 
00000286 
00000764 
00000288 
00000006 
00000081 
00000004 
000020BC 
00002F56 
00000018 
00000003 
000037C0 
00002C4E 
00002BA4 
00000C82 
00001634 
00002C46 
0000262A 
0000274C 
OOOOOFFO 
000020CE 
00000480 
000030F4 
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HALEMEG 


AB 


00080000 


HALFSEC 


AB 


0001E848 


HALFSIZE 


AB 


00000070 


HDERR2 


LB 


00001F5E 


HDERR3 


LB 


00001F66 


HDGMSG 


LB 


00003FF4 


HDRBUFR 


AB 


OOOIFFEC 


HDRLEN 


AB 


OOOOOOOC 


HDRSIZE 


AB 


00000014 


HDSKEBR 


LB 


OOOOIFIO 


HEX128K 


AB 


00020000 


HEX2K 


AB 


00000800 


HKX32K 


AB 


00008000 


HEX512K 


AB 


00080000 


HEX8K 


AB 


00002000 


HKX96K 


AB 


00018000 


HIPTCH 


LB 


000016C8 


HOUR 


AB 


OOOOOIBC 


HOURSAV 


AB 


00FCC193 


ICBIT 


AB 


OOOOOOOD 


ICERR 


AB 


OOOOOOFE 


ICONADDR AB 


00000532 


ICONCHK 


LB 


00001986 


ICONCNT 


AB 


00000534 


ICONCSPC 


AB 


00001680 


ICONHIGH 


AB 


00000020 


ICONMENU 


LB 


OOOOIAAA 


ICONMSPC 


AB 


00000440 


ICONPTR 


AB 


00020004 


ICONRSPC 


AB 


OOOOOOOC 


ICONWIDT 


AB 


00000006 


lERl 


AB 


OOOOOOIC 


lERR 


LB 


000006F8 


IFRl 


AB 


OOOOOOIA 


IT.T.RXCP 


AB 


00000008 


ILLVCT 


LB 


00000010 


ILLVCTR 


AB 


00000010 


INCSR 


AB 


00000004 


INDATA 


AB 


00000000 


INITl 


LB 


00002544 


INIT2 


LB 


0000255C 


INIT3 


LB 


00002570 


INITB2 


LB 


OOOOIOCE 


INITB2L 


AB 


00000002 


INITBDAT 


LB 


OOOOIOCA 


INITBLTH 


AB 


00000004 


INITi'LG 


AB 


00FCC191 


INITMEM 


LB 


0000066C 


INITMON 


LB 


00002534 


INITVCT 


LB 


000006A6 


INSERTD 


LB 


00003B56 


INSRTCOL 


AB 


00000004 


INSRTROW AB 


00000005 


INSRTTIM AB 


OOCOOOOO 


INTERR 


LB 


00001174 


INTLV 


AB 


00000012 


INTSTAT 


AB 


0000005E 


INV 


AB 


0000005B 


INVALID 


LB 


00002A74 


INVCHAR 


LB 


000038B0 


INVERSE 


LB 


0000312E 


INVERT 


LB 


00002EC2 


INVERTCK AB 


00000000 


INVICON 


LB 


00003574 


INVID 


LB 


0000219E 


INVIDBIT 


AB 


00000006 


INVPAG 


AB 


OOOOOCOO 


INVPARM 


LB 


00002BEE 


INVSUM 


LB 


0000222A 


INVTST 


LB 


000008A2 


INVXIT 


LB 


00002A86 


lOlERR 


AB 


00000019 


lOlID 


AB 


00000298 


lOlPORTl 


AB 


00000003 


I01P0RT2 


AB 


00000004 


lOlSTAT 


AB 


0000029E 


I02ERR 


AB 


OOOOOOIA 


I02ID 


AB 


0000029A 


I02P0RT1 


AB 


00000006 


I02P0RT2 


AB 


00000007 


I02STAT 


AB 


0000029F 


I03ERR 


AB 


OOOOOOIB 


I03ID 


AB 


0000029C 


I03P0RT1 


AB 


00000009 


I03PORT2 


AB 


OOOOOOOA 


I03STAT 


AB 


000002A0 


lOBRD 


LB 


0000394B 


lOCERR 


LB 


00000A66 


lOCHK 


LB 


0000145E 


lOCOPS 


AB 


OOOOOOOC 


I0C0PS2 


AB 


00000013 


lOEXCP 


AB 


00000012 


lOKBD 


AB 


00000014 


lOLMT 


AB 


00000900 


I0LMT2 


AB 


00000901 


lOMSK 


AB 


OOIFDCOO 


lOROM 


AB 


000002A1 


lOSl 


AB 


00000034 


I0S2 


AB 


00000037 


I0S3 


AB 


00000041 


lOSBCXJT 


LB 


0000215E 


lOSCHK 


LB 


00001590 


lOSMSK 


AB 


OEOOOOOO 


lOSPACE 


AB 


OOFCOOOO 


lOSTRT 


AB 


00001E12 


lOTST 


LB 


00001000 


lOVCT 


LB 


00000918 


IRA2 


AB 


00000008 


IRB2 


AB 


00000000 


JMPTBL 


LB 


00000080 


KBDBFR 


AB 


000002C0 


KBDCHK 


LB 


000014F8 


KBDCOPS 


AB 


OOOOOOOD 


KBDDELAY 


LB 


OOOOOADC 


KBDDLY 


AB 


00067C28 


KBDEND 


AB 


00000300 


KBDOUT 


AB 


00000017 


KBDQ 


AB 


000002B0 


KBDQPTR 


AB 


00000260 


KCERR 


AB 


OOOOOOFF 


KEYl 


AB 


000000F4 


KEY2 


AB 


OOOOOOFl 


KEY3 


AB 


000000F2 


KEY4 


AB 


000000F3 


KEYS 


AB 


000000E4 


KEY6 


AB 


OOOOOOEl 


KEY7 


AB 


000000E2 


KEYS 


AB 


000000E3 


KEY9 


AB 


OOOOOODO 


KEYBDOUT 


LB 


00003BA5 


KEYID 


AB 


000001B2 


KEYSCAN 


LB 


OOOOllEA 


KEYTBL 


LB 


0000127A 


KEYTOASC 


LB 


0000271A 


KUNPLG 


AB 


OOOOOOFD 


LIOVCT 


LB 


00000028 


LIOVCTR 


AB 


00000028 


LllVCT 


LB 


0000002C 


LllVCTR 


AB 


0000002C 


LAST 


LB 


00003FFE 


LASTBLK 


AB 


000006A6 
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LASTCOL 


AB 


00000058 


LASTROW 


AB 


0000014C 


LCNTHI 


AB 


00FCC195 


LCNTLO 


AB 


00FCC197 


LEV1LCX)P 


LB 


000026DE 


LEV2L00P 


LB 


00002A82 


LEVELl 


LB 


000025A4 


LEVEL2 


LB 


0000273C 


LISA 


LB 


00003D54 


LISARCM 


PR 




LOADIMT 


LB 


00000316 


LOADORG 


LB 


000002E4 


LOADPGM 


LB 


000021EA 


LOMEM 


AB 


00000800 


LOOP 


AB 


OOOOOOIF 


LOOPO 


LB 


00003432 


LOOPl 


LB 


00003438 


L00P2 


LB 


0000343A 


LOOEMSG 


LB 


00003DF4 


LOOPTBL 


LB 


000029DC 


LOOPTST 


LB 


00002934 


LOPTCH 


LB 


000016CC 


LOTONE 


LB 


00000554 


LPMSG 


LB 


00003EF9 


LPTEST 


LB 


00001054 


LSTCHK 


LB 


0000182E 


LVLIVCT 


LB 


00000064 


LVL2VCT 


LB 


00000068 


LVL3VCT 


LB 


0000006C 


LVL4VCT 


LB 


00000070 


LVL5VCT 


LB 


00000074 


LVL6VCT 


LB 


00000078 


LVL7VCT 


LB 


0000007C 


LWRRIGHT 


AB 


0000052C 


MADRERR 


LB 


000002B0 


MAKEATiER 


LB 


00003168 


MAKEBOX 


LB 


000031E6 


MAKEBUTN 


LB 


0000327A 


MAKEDBOX 


LB 


000031B2 


MAKEMENU 


LB 


0000336A 


MAKEPCAL 


LB 


00003164 


MAKESVCW 


LB 


00002814 


MAKETEST 


LB 


00003180 


MAKEWIND 


LB 


000031C6 


MAPINV 


LB 


000005A4 


MAXADR 


AB 


00200000 


MAXMEM 


AB 


00000294 


MAXTEST 


AB 


OOOOOOOC 


MAXX 


AB 


000002D0 


MAXY 


AB 


0000016C 


MBART.KN 


AB 


00000010 


MEALTCH 


AB 


OOFCFOOO 


MEM 


AB 


00000015 


MEMBRD 


LB 


000039CE 


MEMCHK 


LB 


00001514 


MEMCODE 


AB 


00FCC18D 


MEMCOL 


AB 


00000004 


MEMERR 


LB 


00001582 


MEMLMT 


AB 


00000700 


MEMLOOP 


LB 


OOOOOEOE 


MEMMSK 


AB 


00600000 


MEMROW 


AB 


00000010 


MEMRSLT 


AB 


00000186 


MEMSIZ 


LB 


00000446 


MEMSLOT 


AB 


000002AD 


MEMSTRT 


AB 


00001E04 


MEMTSTl 


LB 


00000620 


MEMTST2 


LB 


00000E02 


MEMTST3 


LB 


000029CA 


MENU 


AB 


00000007 


MENUIMSG AB 


00000658 


MENUBASE 


AB 


00000530 


MENUEND 


AB 


000020B4 


MENUHDG 


LB 


00003EC1 


MENUID 


LB 


00003F39 


MENULEN 


AB 


OOOOOOOB 


MENULINE 


AB 


000005A0 


MENULOC 


AB 


00000111 


MENUSPC 


AB 


000003DE 


MENUSTRT 


AB 


000005A2 


MENUWIDT 


AB 


00000012 


MERRCHK 


LB 


00001572 


MIDALCOL 


AB 


0000002D 


MIDALROW 


AB 


00000083 


MIDTSTRO 


AB 


0000005B 


MINCNT 


AB 


00FCC1C5 


MINMEM 


AB 


000002A4 


MINSAV 


AB 


00FCC19B 


MINUTE 


AB 


OOOOOIBD 


MISC 


LB 


000006EC 


MISEXCP 


AB 


00000007 


MITEMS 


AB 


00000007 


MLOOP 


LB 


000035F2 


MMU 


AB 


00000000 


MMUOB 


AB 


00008008 


MMUOL 


AB 


00008000 


MMD126B 


AB 


00FC8008 


MMU126L 


AB 


00FC8000 


MMU127B 


AB 


00FE8008 


MMU127L 


AB 


00FE8000 


MMUACHK 


LB 


00000270 


MMUEADRB 


AB 


00FE8008 


MMUEADRL 


AB 


00FE8000 


MMUERR 


LB 


000001D8 


MMUERR2 


LB 


000003F4 


MMUERR3 


LB 


000003FA 


MMUINIT 


LB 


00000216 


MMULP 


LB 


OOOOOIEO 


MMULPCHK 


LB 


00000408 


MMURSLT 


AB 


OOOOOIBO 


MMURW 


LB 


0000022A 


MMUSADRB 


AB 


00008008 


MMUSADRL 


AB 


00008000 


MMUSET 


LB 


00000290 


MMUTST 


LB 


OOOOOIBO 


MMUTST2 


LB 


00000348 


MMUTSTEl 


LB 


000029C0 


MON 


AB 


00000010 


MONITOR 


LB 


0000259C 


MOUSDWN 


AB 


00000086 


MOUSDX 


AB 


0000048A 


MOUSDY 


AB 


0000048B 


MOUSE 


AB 


00000004 


MOUSEMOV 


LB 


00002F2A 


MOUSEON 


AB 


00000007 


MOUSEOUT 


LB 


00003C2B 


MOUSINIT 


LB 


00002FB2 


MOUSOUT 


AB 


00000018 


MOUSSCAL 


AB 


0000048C 


MOUSTHRE 


AB 


0000048E 


MOUSUP 


AB 


00000006 


MOUSX 


AB 


00000486 


MOUSY 


AB 


00000488 


MOVINST 


LB 


0000314A 


MPAR 


AB 


00000016 


MRGICON 


LB 


000034FA 


MSBUTN 


AB 


00000002 


MSCHK 


LB 


00000A52 


MSGCOL 


AB 


00000018 


MSGLEN 


AB 


0000052E 


MSGROW 


AB 


0000007E 
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MSPLG 


AB 


00000087 


MSRCHSZ 


AB 


00000040 


MSUNPLG 


AB 


00000007 


NEWLISA 


AB 


00000001 


NEWTWIG 


AB 


00000001 


NEXTLINE 


LB 


00003156 


NIOLMT 


AB 


000006FF 


NMEMEMT 


AB 


000008FF 


NMI 


LB 


00000704 


NMIEXCP 


LB 


OOOOOOCA 


NMXVCT 


AB 


0000007C 


NOC 


AB 


0000005A 


NOCHG 


LB 


000023BE 


NOCONT 


AB 


00000001 


NOCRD 


LB 


00002194 


NOCRDl 


LB 


00001332 


N0CRD2 


LB 


00001350 


N0CRD3 


LB 


0000136E 


NODISK 


AB 


00000007 


NODSK 


AB 


00000050 


NOIO 


LB 


00000B5A 


N0I02 


LB 


00000B76 


N0I03 


LB 


00000B8E 


NORESET 


AB 


00000001 


NORSTRT 


AB 


00000000 


NOTIFY 


LB 


000016B8 


NOTPE 


LB 


00000730 


NROWS 


AB 


OOOOOOIB 


NSPLMT 


AB 


OOOOOOFF 


OCD 


AB 


00000000 


OK 


AB 


OOOOOOFF 


OKCH 


LB 


00002BDC 


ONE 


LB 


0000393C 


ONEHOUR 


AB 


OOEOFOOO 


ONEMEG 


AB 


00100000 


ONEMIN 


AB 


0003C000 


ONESEC 


AB 


0003D090 


ORAl 


AB 


00000002 


0RA2 


AB 


00000008 


ORBl 


AB 


00000000 


0RB2 


AB 


00000000 


OTHER 


LB 


000015E6 


OTHRBTNS 


LB 


000025EC 


OTHRMSK 


AB 


01800000 


OUT 


LB 


000037A0 


DUTCH 


LB 


00001678 


OUTCHR 


LB 


0000166E 


OUTCSR 


AB 


00000006 


OUTDATA 


AB 


00000002 


OUTNIB 


LB 


00001696 


OUTPUT 


LB 


0000342C 


FAG128K 


AB 


00000100 


PAINTBl 


LB 


00003128 


PAINTB2 


LB 


00003136 


PAINTBIT 


LB 


0000326A 


PAINTVl 


LB 


0000325A 


PAINT BO 


LB 


00003128 


PAINT V 


LB 


0000325A 


PAR 


AB 


00000003 


PARERR 


LB 


00000DD2 


PAROFF 


AB 


OOFCEOIC 


PARON 


AB 


OOFCEOIE 


PARTST 


LB 


00000D5C 


PARXIT 


LB 


00000DE8 


PATRN 


AB 


AA55A55A 


PATRN2 


AB 


0000A55A 


PBIT 


AB 


00000001 


PBOOT 


LB 


OOOOIEFC 


PC 


AB 


OOOOOOOF 


PCCOL 


AB 


OOOOOOOC 


PCKRR 


LB 


OOOOOFDO 


PCHIGH 


AB 


OOOOOOCO 


PCHIP 


AB 


0000027D 


PCHPROW 


AB 


0000027C 


PCMD 


AB 


00000000 


PCMDSZ 


AB 


00000005 


PCRl 


AB 


00000018 


PCR2 


AB 


00000060 


PCROW 


AB 


00000059 


PCSTRT 


AB 


0000070A 


PCWIDTH 


AB 


00000056 


PEADDR 


AB 


000001A6 


PEADR2 


AB 


00000278 


PERIODS 


LB 


00003EBD 


PHYTOLOG AB 


00080000 


PIABASE 


AB 


OOFCAOOl 


PKEY 


AB 


000000C4 


PMCHKSM 


AB 


OOFCCIFD 


PMERR 


LB 


00001820 


PMEXIT 


LB 


00001818 


PMMSG 


LB 


00003E03 


PMSTRT 


AB 


00FCC181 


PMVCT 


LB 


000015DC 


PMWRDS 


AB 


00000020 


PORTAl 


AB 


OOOOOOIE 


P0RTA2 


AB 


00000078 


POWERCYC 


LB 


00002A6C 


POWEROFF 


LB 


00002DD8 


PRIVCT 


LB 


00000020 


PRIXIT 


LB 


00000FC6 


PRO 


AB 


00000033 


PROBOOT 


LB 


OOOOIECE 


PROERR 


LB 


OOOOIFDE 


PROFILE 


AB 


00000002 


PROFLE 


AB 


00000001 


PROICON 


LB 


00003A9F 


PROINIT 


LB 


OOOOIFFO 


PROMPT 


LB 


00002A92 


PROREAD 


LB 


00001F70 


PROXIT 


LB 


00001FE6 


PR0XIT2 


LB 


OOOOIFEA 


PRTYINTl 


LB 


00000F14 


PRTYINT2 


LB 


00000F72 


PUTBS 


LB 


00002B6C 


PUTLF 


LB 


00002B50 


QEND 


AB 


000002C0 


QTRMEG 


AB 


00040000 


QTRSEC 


AB 


0000F424 


QUESTCH 


LB 


000038AA 


QUESTION 


LB 


00003C65 


QUESTN 


AB 


0000003F 


QUITMSG 


LB 


00003F29 


RO 


AB 


00000000 


Rl 


AB 


0000005A 


R2 


AB 


000000B4 


R3 


AB 


OOOOOIOE 


R4 


AB 


00000168 


R5 


AB 


000001C2 


R6 


AB 


0000021C 


R7 


AB 


00000276 


RAMCHK2 


LB 


OOOOOECC 


RAMNXT 


LB 


OOOOOEDE 


RAMRW 


LB 


OOOOOECO 


RAMTEST 


LB 


OOOOOEBO 


KBYTES 


AB 


0000005A 


RCNT 


AB 


OOOOOOOA 


RDCLKO 


LB 


000012B2 


RDCLKl 


LB 


000012D4 


RDCNT 


LB 


0000285E 


RDDATA 


LB 


00001FD2 


RDDTA 


LB 


000028C6 
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RDENTRY LB 
RDIOSLT LB 
RDSCTRl LB 
RDSLT LB 
BEADCLK LB 
READIT LB 
BEADQ LB 
RECTTABL AB 
BET AB 
REV LB 
R0M4K AB 
ROMIDCOL AB 
ROMTST LB 
ROWBYTES AB 
ROWSLEFT AB 
RSPOK LB 
RSTl LB 
RSTKBD LB 
RSTRTIME AB 
RSTXIT LB 
RTS2 MC 
RUNTESTS LB 
RWCHK3 LB 
RNF2 AB 
SAVEDADD AB 
SAVEDX AB 
SAVELO LB 
SAVERR LB 
SCALE LB 
SCANMSK AB 
SCCDATA AB 
SCCLERR LB 
SCCLXIT LB 
SCCSET LB 
SCNRSLTS LB 
SCRNBASE AB 
SCRNSAV LB 
SCTR AB 
SEEK AB 
SEG20FF AB 
SENDMSG LB 
SERRl AB 
SET2 AB 
SETCRSR2 LB 
SETERR2 LB 
SETMSG LB 
SETUP AB 



00002EAC 
000021CC 
00001C6C 
00001B9A 
000012A0 
00002032 
00002BB6 
0000053A 
OOOOOOOD 
00003FFD 
00000000 
00000050 
00000194 
0000005A 
0000012C 
000020DC 
00000A06 
OOOOOAAA 
00900000 
00000A3C 



00000E6A 
00000254 
00000006 
00000528 
00000522 
000004BC 
0000222C 
00002F42 
00183000 
00000004 
0000108C 
0000108A 
00000774 
0000154C 
00000110 
00000874 
00000008 
00000083 
OOFCEOOC 
000021A6 
0000003D 
10000000 
0000371E 
0000244C 
00003ED9 
00FCE012 



RDERR LB 

RDIOXIT LB 

RDSERN LB 

RDTIME AB 

READCOPS LB 

READKEY LB 

READS AB 

REGTST LB 

RETRY AB 

RLONGS AB 

R0M8K AB 

ROMIDROW AB 

ROMV AB 

ROWLEN AB 

RS232A AB 

RSPTIME AB 

RST2 LB 

RSTLMT AB 

RSTSCAN LB 

RTRYCNT AB 

RTS4 MC 

RWCHKl LB 

RWERR LB 

RXBF AB 

SAVEDDAT AB 

SAVEDY AB 

SAVEREG2 LB 

SAVEXCP LB 

SCANCPS LB 

SCANXIT LB 

SCCEXIT LB 

SCCLCXJP LB 

SCCOUT LB 

SCCTEST LB 

SCNSLTS LB 

SCRNERR LB 

SCRNTST LB 

SEARCH LB 

SEGIOFF AB 

SEG20N AB 

SENDRSP LB 

SERR2 AB 

SETBUSVC LB 

SETDUR LB 

SETMEM LB 

SETSCC LB 

SETUPON AB 



OOOOOFOC 
00002234 
00000BF6 
00180000 
00002DBE 
00002702 
00000000 
00000202 
00000004 
OOOOOOEl 
00000000 
00000003 
00000030 
00000042 
OOOOOOOF 
OOOOFFFF 
000009F6 
OOOOOFFE 
000009C2 
00000058 

0000023C 
000002C2 
00000000 
000004A2 
00000524 
0000003E 
OOOOIDIC 
000011E2 
00000A6A 
0000108E 
00001058 
00001066 
00001008 
000019D6 
0000086A 
00000822 
000018D6 
00FCE008 
OOFCEOOE 
0000210E 
0000003E 
000006E2 
000016CE 
000028A2 
00001048 
OOFCEOIO 



RDINPUT LB 

RDRETRY LB 

RDSLOTS LB 

RDWRERR AB 

READIN LB 

READMMU LB 

RECTCNT AB 

REMAP LB 

RETRYCNT AB 

R0M16K AB 

ROMBASE AB 

ROMSLCT AB 

R0W2ADR AB 

ROWLINES AB 

RS232B AB 

RSTO LB 

RSTCODE AB 

RSTMMU LB 

RSTSCC LB 

RTRYMSG LB 

RTS6 MC 

RWCHK2 LB 

RWFl AB 

SAV2PM LB 

SAVEDROW AB 

SAVEHI LB 

SAVEREGS LB 

SAVRSLT LB 

SCANERR LB 

SCCBCTL AB 

SCCIN LB 

SCCL(X)P2 LB 

SCCRSLT AB 

SCCVCT LB 

SCRACHSI AB 

SCRNOK LB 

SCROLL LB 

SECLEN AB 

SEGION AB 

SELF LB 

SERNUM AB 

SETl AB 

SETCRSR LB 

SETERRl LB 

SETMMU LB 

SETTYPE LB 

SETVCTRS LB 



00002ABA 
00001C48 
00001306 
00000017 
00002AC4 
000005D0 
0000053A 
00000590 
00000020 
00000001 
OOFEOOOO 
OOOOOOFE 
00020000 
OOOOOOOA 
00000010 
000009DC 
00000080 
00000566 
OOOOIODO 
00003E58 

0000024C 
00000002 
0000184E 
00000526 
000004FA 
0000003A 
00000E98 
00000A60 
00FCD241 
0000107A 
0000106C 
000002AC 
OOOOIOEE 
OOOOOOEO 
0000086C 
00002B08 
00000200 
OOFCEOOA 
00002444 
00000240 
00000000 
0000371A 
00002448 
000002C6 
00001198 
00000 6AC 
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SETVLTCH 


LB 


00000886 


SETXIT 


LB 


0000247C 


SFER 


AB 


00000000 


SHFTKEY 


AB 


OOOOOOFE 


SHRl 


AB 


00000014 


SHUTDOWN 


LB 


000023E8 


SIDE 


AB 


00000006 


SILENCE 


LB 


00000B52 


SIZRSLT 


AB 


00000184 


SIZXIT 


LB 


00000502 


SKEY 


AB 


000000F6 


SLEEP 


AB 


00000088 


SLOTIL 


AB 


OOFCOOOl 


SL0T2 


LB 


00001334 


SL0T2L 


AB 


00FC4001 


SL0T3 


LB 


00001352 


SL0T3L 


AB 


00FC8001 


SLOTCOL 


AB 


00000003 


SLOTMR 


AB 


00000005 


SLOTROW 


AB 


00000016 


SNDRl 


LB 


000020DE 


SNDM 


AB 


00FE8000 


SPACE 


LB 


000037BA 


SPEED 


AB 


OOOOOOOC 


SPIN 


LB 


000000C8 


SPLMT 


AB 


OOOOOFOO 


SPURVCT 


LB 


00000060 


SQUAWK 


LB 


0000270C 


START 


LB 


00000440 


STARTOP 


LB 


00003148 


STAT 


AB 


00000010 


STATOl 


LB 


00002076 


STATl 


AB 


000001B4 


STAT2 


AB 


000001B5 


STAT3 


AB 


000001B6 


STAT4 


AB 


000001B6 


STATBFR 


AB 


000001B4 


STATERR 


LB 


000020B2 


STATFLGS 


AB 


000002A2 


STATMSK 


AB 


C140C000 


STATNZ 


AB 


00000053 


STATOK 


LB 


00002186 


STATREG 


AB 


00FCF801 


STATSAV 


AB 


00FCC161 


STATSTRT 


AB 


00FCC161 


STATSUM 


AB 


00FCC17D 


STATUS 


AB 


00000180 


STATWRDS 


AB 


00000008 


STATXIT 


LB 


000020B6 


STBIT 


AB 


OOOOOOOE 


STENTRY 


AB 


00020000 


STKBASE 


AB 


00000480 


STRTBCX)T 


LB 


00001C82 


STRTIME 


AB 


01200000 


STRTMSG 


LB 


00003E98 


STRTRD 


LB 


00002048 


STRTXIT 


LB 


00002074 


STST 


AB 


00000016 


SUPSTK 


AB 


00000290 


SVCHIGH 


AB 


00000140 


SVCLEFT 


AB 


00000014 


SVCMSG 


LB 


00000052 


SVCSTRT 


AB 


OOOOOEDA 


SVCTOP 


AB 


000007BC 


SVCWIDTH 


AB 


00000042 


SYSOK 


LB 


000016DE 


SYSTYPE 


AB 


000002AF 


TlLHl 


AB 


OOOOOOOE 


T1LH2 


AB 


00000038 


TlLLl 


AB 


OOOOOOOC 


T1LL2 


AB 


00000030 


T2CH1 


AB 


00000012 


T2CH2 


AB 


00000048 


T2CL1 


AB 


00000010 


T2CL2 


AB 


00000040 


TAG 


LB 


00000D58 


TBLEND 


LB 


0000128B 


TBOOTERR 


LB 


OOOOIDOA 


TCNT 


AB 


00000003 


TENSECS 


AB 


00009000 


TERR 


LB 


000024C4 


THREE 


LB 


00003946 


THRESH 


AB 


00000005 


TIMFLG 


AB 


00FCC199 


TIMMSG 


LB 


00003DE0 


TIMOUT 


AB 


00000027 


TKILLER 


AB 


OOOOOOAC 


TMOUT 


AB 


00000055 


TNTHSEC 


AB 


000061A8 


TODSET 


LB 


00002466 


TONE 


LB 


00000AF6 


T0NE2 


LB 


00000B06 


TONEDLY 


LB 


00000654 


TOOLONG 


LB 


000024C2 


TOPOFFSE 


AB 


OOOOOIOE 


TOPSIDE 


AB 


00000000 


TOTLMEM 


AB 


000002A8 


TRAK 


AB 


OOOOOOOA 


TRAPVCT 


LB 


OOOOOOIC 


TRCVCT 


LB 


00000024 


TRKl 


AB 


00000001 


TRPERR 


LB 


00000736 


TRPEXCP 


AB 


00000009 


TRPVCTO 


AB 


00000080 


TRYRD 


LB 


00001F90 


TST2 


LB 


000013AA 


TSTBIT 


AB 


OOOOOOOC 


TSTCHK 


LB 


0000139A 


TSTCOL 


AB 


OOOOOOOA 


TSTCRD 


AB 


00001000 


TSTDONE 


LB 


00000E4E 


TSTERR 


LB 


00002344 


TSTHI 


LB 


000004CE 


TSTICOL 


AB 


00000014 


TSTINIT 


LB 


00000E84 


TSTIROW 


AB 


00000055 


TSTISPC 


AB 


OOOOOOOE 


TSTLCXJP 


LB 


00000200 


TSTMCOL 


AB 


OOOOOOOE 


TSTMENU 


LB 


00003F40 


TSTMROW 


AB 


00000040 


TSTMSG 


LB 


00003FD4 


TSTQUAL 


AB 


00001800 


TSTROW 


AB 


00000031 


TSTSTAT 


LB 


00000F68 


TSTWHIGH 


AB 


00000054 


TSTWSTRT 


AB 


00001144 


TSTWWIDT 


AB 


00000046 


TSTXIT 


LB 


000015C0 


TSTXIT2 


LB 


000015C4 


TURNON 


LB 


0000093E 


TWGl 


AB 


00000031 


TWG2 


AB 


00000032 


TWGBOOT 


LB 


OOOOIBCC 


TWGCHK 


LB 


000022EA 


TWGDATA 


AB 


00020000 


TWGDSP 


LB 


00002510 


TWGERR 


LB 


00001DF2 


TWGFAIL 


LB 


00003E10 


TWGHDR 


AB 


0001FFF4 


TWGLOOP 


LB 


0000249A 
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TWGMSG 


LB 


00003DE9 


TWGOK 


LB 


OOOOIDFA 


TWGOUT 


LB 


OOOOIDFO 


TWGRD 


LB 


00001D70 


TWGREAD 


LB 


00001D76 


TWGRSLT 


LB 


00003E23 


TWGRXIT 


LB 


OOOOIDFE 


TWGTST 


LB 


0000247E 


TWIGl 


AB 


00000000 


TWIG2 


AB 


00000001 


TWIGGY 


AB 


00000001 


TWO 


LB 


00003941 


TWOSEC 


AB 


0007A120 


TXBE 


AB 


00000002 


TYPE 


AB 


00000014 


UCLMPERR AB 


00000019 


UNCLAMP 


AB 


00000002 


UPPER 


LB 


00003ADA 


USERINT 


AB 


00000001 


USPSAV 


AB 


OOOOOIFC 


VCTRINIT 


LB 


OOOOIEBO 


VECTIOOP 


LB 


OOOOIOIA 


VFY 


AB 


00000004 


VFYCHKSM 


LB 


0000188C 


VFYTIME 


AB 


01800000 


VIAl 


AB 


OOOOOOOA 


VIAIBASE 


AB 


00FCDD81 


VIAICHK 


LB 


000008B0 


VIAITST 


LB 


000008A2 


VIAIVCT 


LB 


00000DF8 


VIA2 


AB 


OOOOOOOB 


VIA2BASE 


AB 


00FCD901 


VIA2CHK 


LB 


00000780 


VIA2TST 


LB 


00000780 


VIA2VCT 


LB 


000007AE 


VIAFAIL 


LB 


000007F4 


VIARW 


LB 


000007D0 


VIARWEND 


LB 


000007F6 


VIATST 


LB 


000007B8 


VID 


AB 


00000002 


VIDAJST 


LB 


000029F4 


VIDBIT 


AB 


00000004 


VIDCHK 


LB 


00000BA2 


VIDERR 


LB 


00000BD4 


VIDLTCH 


AB 


00FCE800 


VIDMSG 


LB 


00003F09 


VIDTST 


LB 


00000B96 


VIDXIT 


LB 


OOOOOBEO 


VMSK 


AB 


FFFF8000 


VRBIT 


AB 


00000002 


VRSN 


LB 


00003FFC 


VSRCHSZ 


AB 


00008000 


VTIRDIS 


AB 


00FCE018 


VTIRENB 


AB 


OOJiXJKOlA 


W14C0L 


AB 


00000017 


W34COL 


AB 


00000041 


WAIT2 


LB 


00002CBA 


WAIT3 


LB 


00002D0E 


WAITALRT 


LB 


00001EA6 


WAITICON 


LB 


00003A3D 


WCOL 


AB 


00000002 


WFBSY 


LB 


000020FC 


WFBSYl 


LB 


00002100 


WFNBSY 


LB 


00002122 


WFNBSYl 


LB 


00002138 


WFNBSY2 


LB 


0000212A 


WFNBSY3 


LB 


00002132 


WHATMSG 


LB 


00003FDB 


WHITEN 


LB 


00003108 


WINDHIGH 


AB 


00000140 


WINDSTRT 


AB 


0000070A 


WINDWIDT 


AB 


00000056 


WMIDCOL 


AB 


0000002D 


WMIDROW 


AB 


000000B4 


WORDSPER AB 


OOOOOOOE 


WRAPXIT 


LB 


00000500 


WRITESCC 


LB 


OOOOIOBE 


WRITETIT 


LB 


000033B8 


WRMSTRT 


AB 


OOOOOOIE 


WROW 


AB 


00000014 


WRPERR 


AB 


00000014 


WRT 


AB 


00000001 


WRTMENU 


LB 


000027A0 


WRTMMU 


LB 


000005BA 


WRTMSG 


LB 


00002376 


WRTSCRN 


LB 


000026F2 


WRTSUM 


LB 


0000187E 


WT4B(X)T 


LB 


00001A14 


WT4 INPUT 


LB 


00002D38 


WWPERR 


LB 


00000DF4 


XCARD 


LB 


00003A14 


XCRDSTRT 


AB 


00001E20 


XFRDATA 


LB 


OOOOIDCE 


XFRHDR 


LB 


00001DB4 


XLATE 


LB 


0000125E 


XLOOP 


LB 


0000361A 


XPCTADDR AB 


00000268 


XPCTDATA AB 


0000026C 








Assembly complete: 


11840 lines 












Warnings 
















Errors 















ASSEMBLY COMPLETE. 



APPLE LISA COMPUTER 16K ROM DUMP 



CREATED BY DAVID T CRAIG 
71533 . 606@COMPUSERVE . CCM 
09 JUNE 1998 



RCM NOTES: 

STARTING ADDRESS IS $FEOOOO 
O ROM IS 16K BYTES IN SIZE 



RCM MAPPED TO ADDRESS $0 
WHEN LISA STARTS SO THAT 
KEY VALUES AT THE START OF 
THE ROM OCCUPY THE 68000 
CPU'S LO-MEM VECTOR TABLE 

THIS ROM HAS VERSION 2.48 
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HHICH IS ALSO SEEN AS 2.H 

(SEE THE 2ND 2 -BYTE WORD 
FROM THE RCM'S END, 0248) 

LAST 2-BYTE WORD IS THE 
ROM CHECKSUM WHICH IN THIS 
DUMP IS INCORRECT AT $0000 

(USE A REAL LISA AND ITS 
BUILT-IN "SERVICE MODE" TO 
PEEK AT THE ROM AND FIND 
WHAT THE CHECKSUM SHOULD 
BE - OR LOOK IN THE RCM 
SOURCE FOR HOW THE CHECKSUM 
IS USED) 

CHECKSUM IS $3F7B 



0000048000FE00F600FE003000FE0030 
00FE003000FE003000FE003000FE0030 
00FE003000FE003000FE003000FE0030 
3E7C048042876000015C21CF029021CE 
01F84E6E21CE01FC3C7C01F848E6FFFC 
4E7553455256494345204D4F44450000 
00FE003000FE003000FE003000FE0030 
00FE003000FE003000FE003000FE00CA 
4EFA25D04EFA24AE4EFA36644EFA052C 
4EFA1EDE4EFA1CE0 4EFA0E1 64E7 1 4E75 
4E714E754EFA052A4EFA08AC4EFA11F2 
4EFA157E4EFA074C4EFA0A3C4EFA17CE 
4EFA17BC4EFA0B3060FE423900FCE012 
0839000100FCF801661431F900FCF000 
01AA4A3900FCE01C4A3900FCE01E4A39 
00FCE0104E73303900FC800002400FFF 
0C400901664C02790FFF00FC80086642 
33FC07000000800033FC090100FC8000 
33FC0F0000FE8000427900FE80084239 
00FCE01221CF02903E7C04806100FF00 
49FA0006600006B495CA428097CB6000 
23F44287303900FE800002400FFF0C40 
0F00663002790FFF00FE8008662608C7 
001E700033FC090000FC800033C000FC 
800833FC0F0000FE80004E7049FA0006 
6000066E428041FAFE6843FA3E62D058 
E358B3C866F8D0586600FF1E4A876BE4 
49FA0006600000604DFA00066000006C 



661649FA0004604E4DFA0006600000A2 
6604600000F246474A4767024E704E70 
207C000280007201740749FA00046010 
207C00028008740549FA0004600260D8 
200830813610E3494840E34848402040 
534266EE4ED4303CA55A72007400247C 
00020000007C07104ED4207C00008000 
227C00FE8000267C00FE800849FA0006 
60000072464049FA00046068464049FA 
00046060E350B3C86704D1CA60DEB7C8 
670A207C00008008224B60D04A424ED6 
207C00008000227C00FE8000267C00FE 
8008383C0C003210B14102410FFF6620 
3084E350B3C86704D1CA60EAB7C8670C 
207C00008008224B780060DA4A424ED6 
844160DC30803210B14102410FFF6602 
4ED484414ED4207C0000800870007200 
380274007C00247C00020000267C0000 
01007C1049FA000460CAD08BD1CA5346 
66F2207C00FC8008700049FA000460B4 
D1CA49FA000460AC207C00008000303C 
070072007C1049FA00046098D1CA5346 
66F4207C00FC8000303C090049FA0004 
6082D1CA303C0F0049FA00066000FF76 
4A426600FE9434047C0049FA00066000 
FEC64A3900FCE00A7C0149FA00066000 
00B0670000904DFA00066000FEBE6600 
00844A3900FCE00E7C0349FA00066000 
009067704DFA00066000FEA066664A39 
00FCE0087C0249FA00046074675C4DFA 
00066000FE8666524A3900FCE00C49FA 
00066000FE624A3900FCE00A7C014DFA 
00066000FEAC662C4A3900FCE00E7C03 
4DFA00066000FE9A661A4A3900FCE008 
7C024DFA00066000FE88660E4A3900FC 
E00C60144A3900FCE0084A3900FCE00C 
E85E844608C700004A876B00FDA46030 
383900FC800002440FFF0C440900661E 
383900FE800002440FFF0C440F00660E 
38390000800002440FFF0C4407004ED4 
423900FCE01242802040224026402C40 
72024841283CAA55A55A3604464349FA 
0006600000A44A46675246464A466648 
D7C1224BB3FC0020000066E213FC00AF 
00FCE800303C61A8534066FC13FC002F 
00FCE800207C00FCDD814A1045FA0006 
600000B249FA000660000350207C000F 



FFFE2084261060FA46463C46204BB1FC 
001000006F06207C00100000244BD7C1 
224BB3FC00200000672820086604B651 
671E49FA000460204A46670E46464A46 
67DC300E464680463C40244B425360CE 
4251D5C1224A605E7A20424632843343 
0002B85167063011B9408C40B6690002 
670830290002B7408C40334400023283 
B8690002670830290002B9408C40B651 
67063011B7408C404A4667064A995345 
66BA4ED47060323C00FA740449FA0006 
600005A44ED22A082C097009E0ADE0AE 
247C00008008267C000080002A7C0002 
0000263C00000100787E3005323C0700 
49FA000460245344D083BC8066F24240 
323C0C0049FA00046010538466F6EC8E 
534613C600FCE80060664A3900FCE010 
34803681D5CDD7CD423900FCE0124ED4 
363C0FFF4A3900FCE0104A4267220C02 
000167160C02000267084A3900FCE00E 
60084A3900FCE00E60064A3900FCE00A 
3012C0433213C243D5CDD7CD4A3900FC 
E0084A3900FCE00C423900FCE0124ED4 
2448264991C8327C080049FA00066000 
08806738200AE088EE8813C000FCE800 
49FA0006600001B445FA00066000FF06 
303C61A8534066FC45FA00066000FEF6 
91C8303CA55A3080321060FA307C0180 
707F429851C8FFFC31C3018631CE0184 
21CA02A421CB029497CA21CB02A8207C 
0000800097C821CB011031C201B021FC 
000002B002606104600000CA41FA003E 
93C9704022C853406EFA612641FA0090 
21C8000C41FA003221C8001041FA0036 
21C8007C41FA006021C8002821C8002C 
4E7547FA005E21CB00084E7521C701AC 
7E0008C70007606C21C701AC7E0008C7 
0008606021C701AC7E006100085C6620 
08C70016610008DA4A3900FCE01C0801 
000567060281FFFF800021C101A66034 
08C70004602E21C701AC7E0008C70009 
602221C701AC7E0008C70005600A21C7 
01AC7E0008C7000631DF028021DF0282 
31DF028631DF028821DF028A31C0028E 
60000C2847FA03E421CB000861000952 
47FA002C21CB0008207C00FCD9317008 
4DFA00046022670A08C7000B4A876BE0 
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600A4A876BDA49FA0004605460747033 
08C7000B600001622248D3C070004202 
42104211363C00FF49FA000460024ED6 
B4106620B411661C1083B4116616B610 
66121283B610660CB6116608140351CB 
FFE0600252404A404ED4103C00806002 
70FF207C00FCD901117C0084001010BC 
0004117C00FF00181140000808D00007 
4ED420780110227802A849FA00066000 
0680676E08C700156100064A61362278 
01102049247C0000800091CA48E700E0 
49FA00066000065A4CDF0700670E2808 
6112224891CA20086EE2603621C80110 
6114602E7211E2ACD844220348438641 
877340004E7524380110223802A89282 
203802949081E088EE8813C000FCE800 
4E7561002832613449FA00066000FF4C 
47FA054621CB0008207C00FCDD8D7002 
4DFA00066000FEF2670C08C7000A4A87 
6BDE60000AC64A876BD6600E103A371F 
7A037C5061002E544E7547FA002A21CB 
0008612C65144A876BF020070280001F 
FFFF670000BE60000A9208C7000C4A87 
6BD860000A86703408C700126000FE3A 
207C00FCDD81117C0001001600280009 
0018117C007F001C117C007F001A4240 
611465107070610E650A705061086504 
706061024E7548E7F8E040E7007C0700 
207C00FCDD8122482448D4FC00067440 
76FF78061140001E323C061A53416732 
091166F8C0FC0001323C061A53416722 
091166F81483323C061A534167140911 
67F8700A53406EFC4212117C0082001C 
600846DF003C0001600246DF4CDF071F 
4E7522780260347C02C0616C64FC6100 
00DA428142834284615E65600C000080 
67240C000087670E0C00000766027802 
6146654860E67801613E65400C000007 
66DA780260EA613065320C0000FD6604 
760160DC0C0000DF620811C001B27602 
60CE0C0000FF660408C7000D0C0000FE 
660408C7000C60B861444E754A01660A 
610000827201613664924A03660408C7 
00174A0467145344671008C70018600A 
08C70014600408C7000C21C902602007 
0280001830004A8066000920606AB5C9 
671A243C000001FF207C00FCDD811028 



001A08000001660A534266F2003C0001 
4E751028000212C04E75207C00FCDD81 
08900000002800010004203C00000BB8 
61204E7508D0000061124E75203C0000 
61A8600E203C001312D06006203C0006 
7C28538066FC4E756104600000AA103C 
00A07200740848E7108849FA00046006 
4CDF11084E75207C00FCDD810028000E 
0004021000F18510022800E300160028 
001000164A3900FCC0316A1008390005 
00FCC03166061600E40BD00311400010 
117C000F0014363C00D051CBFFFE51C9 
FFF6022800E300164ED408C700103E7C 
048047FA001221CB0008207C00FCD901 
4A106000FC0C08C7000B47FA001221CB 
0008207C00FCDD814A106000FC9608C7 
000160000806610025E8327C1DF66100 
29D4267C00FCE018287C00FCE01A2A7C 
00FCF801303C0DF474024A534A540515 
670651C8FFFA600C4A534A5405156704 
4A53600C08C700024A876BC6600007BC 
307C0240611064EC4A7900FCE0184A87 
6BB06000016848E7018040E7007C0700 
227C00FE8000247C00FCF8014E56FF18 
47EEFF1849FA01422D48FFF872022D7C 
00000007FFFC427900FCE018427900FC 
E01A031266FC4C9100FF489300FF508B 
508B4E71700853AEFFFC5FC8FFFE6EE6 
2D7C00000007FFFC303C00AB51C8FFFE 
4C9100FF489300FF508B508B4E717008 
53AEFFFC5FC8FFFE6EE6427900FCE018 
780147EEFF18284BD8FC00706100007C 
4A4467646100009E47EEFF18D6FC0070 
284BD8FC0070610000624A44674A6100 
0084206EFFF8424010280018343C0064 
C0C212280019343C000AC2C2D0411228 
001AD04142414242424316301000D443 
52410C41001866F21628001BD4430442 
003CB440670242444E5E46DF4CDF0180 
427900FCE01AE24C4E7542807202341B 
E34AE310B9CB660AD7FCFFFFFF905341 
670E0C0000FF66E6E948E80830C04E75 
42444E75740672084280E3DBE310B9CB 
6606D7FCFFFFFF90534166EEE948E808 
30C0534266E04E754B4153002478007C 
47FA009221CB007C2A7C00FCF8014A39 
00FCE01C42824284303C01FF307C0300 



36102248D3F802A44A3900FCE0063080 
4A3900FCE0044A3900FCE01E4A426632 
32104E714A42672A0815000166243839 
00FCF0004A3900FCE01CEB8CB3C46612 
21CA007C4240464030804A3900FCE01E 
601608C700034A876B824A3900FCE01C 
21CA007C600005B44A876B00FF706100 
27C6600E74014E73703208C7000A6000 
FB18327C1E046100276C6100F8D643FA 
010421C9007C0807001E67047A016020 
61000A14650E0839000600FCC18D6704 
7A0260027A014A3900FCE01C612C660E 
4A3900FCE01E61226604534566E84A87 
6BBC08070015660005426100276247FA 
F8A421CB007C60000198611849FA0006 
6000003E670408C70015611C66EE0807 
00154E757402484228380110307C0800 
2242367C01864E75300348438640875B 
B889670A2049D3C2B8896C0222444E75 
2A48203CAA55A55A46807600007C0010 
2080B09067064DFA0004604046802080 
B098670A59884DFA000460305888E390 
4680B3C866DA203CAA55A55A204D7200 
4681007C0010B09067064DFA0004600C 
20C1E390B3C866EE4A834ED42210B181 
86814ED661526600F7EC08C7001621C0 
026C21C80268263802A4610000C40801 
00056604743F600A343C7FFF0281FFFF 
800021C101A643FA002A21C9007C9283 
22414A3900FCE01C4A3900FCE01E4284 
181951CAFFFC605E0839000100FCF801 
4E7561F46600F78E6100007621C10278 
93FC0000000121C9027021C402740801 
00056632220902810000000324016706 
E188534166FAE1980280000000FFB900 
671E080200006602E148367C01862809 
26006100F8B04A3900FCE01C6000F796 
220908010000670811FC0014027D6006 
11FC0009027D7411E4A911C1027C60D6 
4281323900FCF00031C101AAEB894E75 
327C1E126100256E47FA00E421CB0008 
610000BE54887200700010BC00023E97 
1410B4016704700160643E9710BC0002 
5281108166E460100900044D0B500C00 
0D000E1303C105EA45FAFFEE323C0010 
558861 6A720076FF08100002660851CB 
FFF8544060243E971141000408100000 
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660851CBFFF8584060103E9714280004 
B401660876FF520166CE6002504011C0 
02AC672008000000670408C7000FE248 
4A00670408C7001061264A876B00FF5A 
600002E8611A4A876B00FF4E604E1410 
6002109A51C9FFFC4E75020009C00582 
207C00FCD24145FAFFF2720461E0700C 
6100FA0045FAFFE8720261D24E75B1FC 
00FCD24166047038600270374A876A08 
3E7C04806000FF026000F80E47FA0078 
21CB0008207C00FCC0017A033C3C0051 
702F610026161028003011C002A17202 
6100054661 624282227C00FCD9010229 
00BF0010203C001C8000081100066606 
538066F6743911E8001602AE66164A02 
6612705511400002B028000266066100 
0BD6640C08C700114A876B906000021C 
4A876B88603A70394A876A083E7C0480 
6000FF7A6000F7824280123900FCC031 
4A016A160801000567047001600C0801 
0006670470026002700311C002AF4E75 
47FAF75421CB00086100F9246100F8FE 
207C00FCDD81117C00C9001861046000 
00AC22780260347C02C06100F8926568 
0C0000FF66246100F886655C0C0000FE 
66366100F87A65500C0000C4660C11FC 
000F01B308C7001C60D04A006A1E0C00 
00FD67C60C000086660808F8000202A2 
60B808C7001D60B2612460AE0C000006 
660808B8000402A260A00C00007F6606 
08B8000302A2609221C902604E7547FA 
001A4282B01B670852424A1366F6747F 
11C201B308C7001C4E75F4F1F2F3E401 
E1E201E3D00101010101AF0061124A87 
6BFA0807000E660001026100232A604E 
40E7007C070070026100F6AC6534347C 
01C0327C01B96100F7C665260C000080 
66F06100F7BA651A020000F00C0000E0 
66E072056100F7A86508534166F646DF 
4E7508C7000E46DF003C00014E75327C 
1E20610022807801610C4A876BF86100 
22CE6000009648E740702C4F4281327C 
0298247C00FC00012A78000847FA0014 
21CB0008030A00006156640808C70019 
60024259247C00FC400147FA001421CB 
0008030A00006138640808C7001A6002 
4259247C00FC800147FA001421CB0008 



030A0000611A640808C7001B60024259 
007C070021CD00082E4E4CDF0E024E75 
0C41FFFF671032C16B060801000E6704 
61000E3A4E7542594E756100EC9E47FA 
000A21CB00086100FDF06100F3363E7C 
04806100F4D261001D22200702800E7F 
FFFF4A8067000220200702800000000F 
4A80673A45FA25B508070001670A7029 
610001086000F39A610002E2610002DE 
610002D60807000067047028600C0807 
00026704702A6002702B600001B42007 
0280000003F04A806744610002B06100 
02A845FA2930080700046704702C602A 
080700056704702D6020080700066704 
702E6016080700076704702F600C0807 
00086704703060027031600001642007 
0280001FDC004A806700008E45FA24DD 
0807000A6708703261706000F4346100 
024C61000244610002440807000B6704 
703360520807000C67087034614C6000 
F44A0807000E67047036603A0807000F 
67047037603008070010670470386026 
0807001167047039601C080700126704 
703A6012080700136704703B60080807 
00146702703C600000D861001FEE6100 
013208C7001F4E750807000D67166100 
01C8610001C8610001C045FA26997035 
600000AE20070280006000004A806700 
0070610001A8610001A06100019C0CB8 
0008000002A86E14203802A40C800010 
00006D04720160027202602608070016 
6706203801A660E4307C018670084A58 
6604534066F80C0000046E0472016002 
7202080700156708704611C102AD6002 
704721C7018045FA244661001EC46034 
61000136610001366100013245FA2476 
0807001B67047203600C0807001A6704 
720260027201103801B461001E946004 
61001F1821C70180610000586100FC14 
6100F34E610019F660000FC23E7C0480 
6100F10060E620070280018000004A80 
672C08070017670645FA25AB60146100 
023665160839000700FCC18D670C45FA 
261B61001F42600000A0088700186000 
00BE48E7F0003A3C00973C3C00126004 
48E7F00002800000FFFF72014A406726 
4282428380FC000A48401400E89A5243 



424048404A40670260EAE99A10025343 
6704611460F461064CDF000F4E756108 
0645000A7C014E7548E7E0007408B401 
6706E998534260F6E998610A534166F8 
4CDF00074E752F000240000F0C000009 
62060000003060080400000900000040 
61002088201F4E75610E610C610E6100 
F41461001A16601A702060027060323C 
00FA74046100F4206100F3F24E7542B8 
0180610018E842800807001C67101038 
01B30C00000F665C6100015460560807 
001D660001F46100012E64164A3802AF 
670C74016100032067047001600E7002 
600A103900FCC189E8086028323C1000 
383C1800610001A0661A3602323C8001 
383C9FFF61000190670434036A06C4FC 
0003300211C001B34A00660E4A3802AF 
67046000076A4200600A0C0000016608 
103C0080600004560C00000267E40C00 
00046E08227C00FC0001601A0C000007 
6E08227C00FC4001600C0C00000A6E0A 
227C00FC8001600009B60C00000F6700 
0A8A0C000010667608B8000002A208F8 
000102A26100194E6100199A47FA0052 
21CB000861000060653E103900FCC189 
E8080C00000F6630423900FCC18908B9 
000600FCC18D47FA25FC61001F04207C 
00FCC1950108000072046100FE627C0C 
61000CB861000CFA6100EEC860000D7E 
47FA25E145FA2125428060000D086100 
0EDC600000C448E7C080207C00FCC181 
303C001F320061444CDF01034E7548E7 
C080E908123900FCC1890201000F8001 
13C000FCC18908F9000600FCC18D207C 
00FCC181701E61064CDF01034E753200 
610A46435243078800004E7542824283 
4A41670805080000588860023418D642 
E35B51C8FFEC4A436704003C00014E75 
48E7203045FAF9C447FAF9D14282B002 
670C5242528AB7CA66F4700260021012 
4CDF0C044E7548E790007400760241F8 
029852423018C044B041670651CBFFF4 
4A424CDF00094E750238000F02A24278 
053A7C014A3802AF6602524674016100 
01266602524642846100F9EC41F80298 
30186A12247C00FC00016100026E6506 
02430003DC4330186A12247C00FC4001 
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61000258650602430003DC4330186A12 
247C00FC800161000242650602430003 
DC430C06000A6F027C0A70122206C2FC 
002247FA252461000E5831FC05A20530 
31FC06580532103802AF67140C000003 
661C4282610000A0661445FA213E6006 
45FA217C7201740076FF610000E845FA 
216E7202740176FF610000DA42820C00 
0003671261000070660C45FA20D37402 
76FF610000C0428041F8029830186A0E 
247C00FC000172017403610001583018 
6A0E247C00FC40017202740661000146 
30186A10247C00FC80017203343C0009 
61000132610015F808F8000502A26100 
122665000CC26100F836610015BE6100 
16AA6000FCB248E7AA80610005B4664E 
610006F04A00671E4A02674042806100 
0456610006D648E780806100167E4CDF 
01014A00661E021000EF61000690660A 
0C280001007867027052760061000690 
610006A042280018001000184A404CDF 
01554E7548E7804030026100FE143278 
053061064CDF02014E7548E7F8A441F8 
053A3410C4FC0005D442525831802000 
61000C5838006100193ECCFC00083186 
200231852004303C0090DC4031862006 
06450022318520089DCE3C780532224E 
DDF801104A036A1461001AE841FA2020 
B5C8660C2A496100195C600461001916 
D2FC0445610018F0424061001C1E3004 
61001C1832780530D2FC0BF431C90530 
32780532D2FC0BF431C905324E714CDF 
251F4E7548E7F8E00800000D661A45FA 
1EC476FF327805326100FF3A45FA1EB6 
2A4961001900602C61306528227C0001 
FFFC280302440003204A32182449D4C1 
6100FF125344670C321852422449D4C1 
6100FF024CDF071F4E7548E7A0000800 
000D6720428461000624651A42833639 
0002000408C30000247C0001FFFCD5C3 
161A600276014CDF00054E7547FAF5B8 
21CB000811C00535610002CC207C00FC 
C001227C0001FFF4247C000200004281 
0280000000FF4A406608117C00080002 
6006117C00800002E098828010BC0086 
610001F265000082267C00FCDD8108AB 
000400046100024C6500006E42406100 



0140640A0C00002767000060600A3029 
00040C40AAAA6724123C000142406100 
012065464201424061000116653C3029 
00040C40AAAA67047026602E42B801B4 
47FA009C49FA009E61000236247C0002 
000048E780806100EE226100EE384238 
02B04CDF01014ED2702711C001B40C00 
00276720610001CC651211E800BA01B6 
11E800C401B511E8005801B761000198 
610000846100EA1C61000092103801B4 
0C000007661445FA1E7E610018503A7C 
287E61001780600002560C000017670C 
0C00002667060C00004B660661001752 
600845FA1C47610017D26000022E49FA 
0004600849FA0004601060A031DF0280 
21DF028231DF02864ED431DF028821DF 
028A6100E3063E7C04806100E970704B 
11C001B44ED4207C00FCC001117C0088 
000210BC0087610000AC4E7545FA1FC0 
123805354A0166047201600272024E75 
243C00C0000048E7107840E7007C0700 
6100011403C800041140000C42280002 
10BC0081610000A8655610280010117C 
00CC000210BC0085615A65444A006642 
49E803E8074C000022C3074C000822C3 
074C001022C349E80400303C001F074C 
000024C3074C000824C3074C001024C3 
074C001824C3D8FC002051C8FFE2600A 
702746DF003C0001600446DF42804CDF 
1E084E7548E71010263C00120000207C 
00FCC001267C00FCD901022B00BF0010 
4A106714081300066606538366F66004 
538366EC003C00014CDF08084E752602 
267C00FCDD81081300046608538366F6 
003C00014E75611A6516243C00180000 
117C0002000210BC008161D265026102 
4E75117C00FF000210BC00856186267C 
00FCDD817619081300046708534366F6 
003C00014E75267C00FCDD8108130004 
670261CE4E7545FA1B95610016804E75 
307C000820CB20CB721420CC534166FA 
307C0080722020CC534166FA4E7561D6 
227C0001FFEC247C000200004281243C 
01200000760A78036100008665223029 
00040C40AAAA67047054601447FA0060 
49FA006461AA247C000200006000FD74 
0C38000302AF670645FA1B85600445FA 



1BBA0C000050660E0807001C66086100 
11AA6000F8FA610015A26100F6E66100 
F7886100F7846100F780610011C80238 
00FC02A208F8000002A26000064049FA 
00066000FDB849FA00066000FDBE60A0 
48E73F7E40E7007C0700617467047050 
605C081000016608538266F67051604E 
610000B664186100018A610000AC640E 
610001A46100017C6100009E65304A78 
01B66A066100009265244AB801B46712 
223801B420010280C140C00067047053 
600C7004615C707F224A6156600846DF 
003C0001600446DF42804CDF7EFC4E75 
4280267C00FCDD81001300A0002B00A0 
0004207C00FCD9010228007B00600028 
006B00604228001800100018021000FB 
022800FC00100028001C001008100000 
4E7512E8000812E8000812E8000812E8 
000851C8FFEE4E75367C030426811743 
000417440005611E651A7402615E6514 
367C01B416E8000816E8000816E80008 
16E800084E7548E728007401613E6412 
0C000055672C610000AA4A006624612C 
6524021000F7117C00FF0018303C0005 
115B000851C8FFFA0010000842280018 
6004003C00014CDF00144E7548E77800 
021000EF422800184280613066181228 
00784203B2026704705260027655612E 
4A006602613C42280018001000184A00 
6704003C00014CDF001E4E75383CFFFF 
081000016706534466F670554E750210 
00E7117C00FF00181143007800100010 
4E75283C00180000600E283C01200000 
6006283C000005000810000166065384 
66F670554E75267C00FCDD810213007F 
6100E97A001300806100E9724E751800 
2A7800082C4F47FA002C21CB00080309 
00004A416A280C41FFFF67226100FD28 
24496148651C103801B3247C00020002 
6000FAF0705A21CD00082E4E6008705B 
6004183801B311C001B445FA18680C04 
00046E047201600C0C0400076E047202 
600272036100128A6000FD7048E770C0 
207C0001FFFC224A4280010A00045440 
0C400FFF624442824283050A00003082 
3418D642E35B588A534066EE050A0000 
D6424A4366244A44672A0801000E6724 
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48E70F3E4EB9000200004CDF7CF04A40 
671211C001B5705D6002705C11C001B4 
003C00014CDF030E4E750C39000100PC 
C1916756207C00FCC191227C00FCC1FF 
42105488B3C866F8700113C000FCC191 
13FC003C00FCC1C342B801BA427801BE 
702C6100E6E2651E42817408610001E8 
6514223C100000007408610001DA6506 
70256100E6C2650001B061000EC80838 
000202A26718103900FCC1C30C00003C 
660470036002703C13C000FCC1C30C39 
000100FCC1996722203801BCE9984840 
13C000FCC19B423900FCC1C5423900FC 
C1C113FC000100FCC1990C39000200FC 
C1C566000082423900FCC1C547FA1AEB 
610013F47C0C47FAEE7E21CB0008207C 
00FCC001267C00FCDD814A3802AF6704 
785060124281782D6100FB4865166100 
014E6510782D4281123C0008E8996100 
013E642047FA1ACA610013AC7C0C0C00 
00276700010A523900FCC19F64065239 
00FCC19D610001AA117C0088000210BC 
00876100FA9047FA1A56610013841039 
00FCC1C36100F2AA7C0C523900FCC197 
6406523900FCC19561000130203801BC 
E9984840B03900FCC19B6712523900FC 
C1C5523900FCC1C113C000FCC19B6100 
E714103900FCC1C1123900FCC1C3B001 
6C16103C000F6100F4766100FC146604 
6100FD486000026C423900FCC1992038 
01BC227C00FCC1A101C90000207C00FC 
C00110BC00896100F9FC6552702D6100 
E54665384281123900FCC1C3703CC2C0 
700CE1B9227C00FCC1B103C900007405 
61346518103C000F6100F41470236100 
E51665084E7160FC703D6002703E45FA 
14FB610010866100F1CA6000014008C7 
00116000EF36E99910010200000F0000 
00106100E4E26504534266EA4E75117C 
0088000210BC00866100F97A653608AB 
00040004243C00C0000003C800044228 
000210BC00816100F996651610280010 
6100F9C0650C4A00660A5241534466DA 
4E757027003C00014E7547FA19146100 
1230524 66100EDCA203801BC227C00FC 
C1A101C90000E99872016100F18C5246 
E19872026100F1825246E19872026100 



F1785246E19872026100F1647C0C4E75 
48E7C01047FA190D610011E6267C00FC 
C19D010B000072046100F1447C0C4CDF 
08034E756100DB044287423802A208F8 
000102A248E780306100F7FC6100E55C 
6100E57261000A764CDF0C013E7C0480 
48E780306100E32061000B6C61000BFA 
4CDF0401220A670461000FB24A406712 
220A660A7A7E7C126100F0A660046100 
F092265F200B670461001140007C0700 
6100E10A4278053A0238000F02A208F8 
000602A20838000102A2663020380180 
0280001E3FFA661E4A7801886618327C 
2956103C00F147FA18A0347C2CE84281 
61000C98600608F8000102A208380000 
02A26616327C1876103C00F447FA185A 
347C1C08428161000C72327C3A36303C 
00F247FA1884347C3DC872FF61000C5C 
610009EC08F8000502A26100061A6500 
00B6610009B60C0000F2660861000A9C 
6000F2B60838000002A266120C0000F4 
660C42874A3900FCE0106000DB2E0838 
000102A2666C0C0000F1666661000A6C 
02877000000020380180080000006600 
E1000280008FFFFF6700F05C2F006100 
0AF0103C00706100E2BE201F08000002 
670C327C1DF661000ECC6000E6B0EE88 
4A006600EC3AE4884A00670C327C1E12 
61000EB26000EA464A3900FCE01E6000 
E9300C0000F667000064610000306100 
092E6000FF4645FA126397CB6000FE6E 
428020780110323C1FFD20C051C9FFFC 
4E75610006344A006AF84E757020323C 
00FA74046100E3E04E7548E7408041FA 
119C32000241007F044100206A047002 
6004103010004CDF01024E756100099C 
610000D26100005A610008C4610004F8 
6594610008960C0000F4670000DA0C00 
00F16700013E0C0000F26700019C0C00 
00F3670001C00C0000E4670002780C00 
00E1670002E80C0000E2661008B80000 
02A2428095CA97CB6000FDC2600002D6 
4278053A0238000F02A270127207C2FC 
000B47FA170D61187807327C05A2347C 
065847FA170549FA177161000B9E4E75 
48E7C00008F8000702A2610009385441 
327C05A261000A00327C011161000C18 



428161000E4097CA240B5442020200FE 
3002720E74FF92FC005B610009224CDF 
00034E75327C0EDA7042223C00000140 
47FAD830610009A031FC003E030031FC 
001803024E756100036C650002384A43 
670002400882000024426100034A6506 
0C000020670847FA1774610002367204 
610003506500020E610002E64A436702 
60027410200A72086100EDFE58467808 
301A72046100EDF25246534466F25182 
51826F06610002BA60DA610002B46000 
01E261000300650001CC4A43670001D4 
2442610002E265060C000020670847FA 
1705610001CE7208610002E8650001A6 
4A43670001AE0C0300026E0414C26014 
200A0880000024400C0300046E0434C2 
600224C2610002A0650A0C0000206600 
017460C26000017C6100029A65000166 
4A436700016E0882000021C201F84DF8 
01C04CDE3FFF2C7801F84E966100D70C 
600001506100FEDE6100021647FA1602 
781861000DBC47FA168C610001466500 
01244A4366086100FEBC600001265343 
6600011272016100024A0C02000C6200 
010453426B0000FE2F026100075E6100 
0800241F0C0200046C06327C1DF6601C 
0C02000A6C06327C1E1260100C02000B 
6C06327C1E046004327C1E2061000BC6 
D44208C7001F41FA0024D0F020004ED0 
4A3900FCE0106000D7E808F9000600FC 
C18D70026100EE786000E434D7B8FFE4 
E1C6E380DDA4DED4DF0EE62CE730E8B0 
FFEEE91A70FF6100FCFA42806128701B 
721C740C6120D04151CAFFFA42806130 
702C722D740F6128D04151CAFFFA6100 
FCE26000FD1848E7C080725AC0C12078 
0110D1C04218534166FA4CDF01034E75 
48E7F080720880C14282340020780110 
D1C2484092405341745A363C016C0390 
D1C2534366F84CDF010F4E756100066C 
6000F7D26100FC9647FA15616100018C 
6004610001A46100FD18610005826000 
FCBC48E706206100071A3A3C00183C3C 
001861000974544231C2052E61000C52 
610000084CDF04604E75207C000002C0 
224842836100FC3C6100FC504A0067F4 
0C00000866124A4367EA53434A216100 
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008C6100009660DC0C00000D67180C03 
00306D066100FC1660CA524361000088 
61000C3860BE4E7548E7E0807A487C18 
61000C08204ED0FC0384343C001B323C 
000A303C00423CD855406EFA52457C18 
61000BE8204ED0FC0384534166E45342 
66DC3A3C014C3C3C00184CDF01074E75 
3A3803007C180645000A0C45014C6F02 
61A631C5030031C603024E755346BC78 
052E6C043C38052E4E75303C00206100 
0BBA53464E752F0A347C0300B5C96702 
12C0245F4E75B3C8670410186004003C 
00014E7547FA14156100FEE872086102 
4E754283428261DE652E0C0000206604 
4A2060240C0000306D240C000039630C 
0C0000416D180C0000466E126116E98A 
84005243B20366CE023C00FE6004003C 
00014E750C0000406E06040000306008 
040000410600000A4E7548E786006100 
05A23A3C00183C3C001861000AFE6100 
0AE04CDF00614E75705A3C7C05FA4281 
2A4E223C00000708068100000168DBC1 
610004AC4E750838000302A2666C6100 
00E80C000006660808B8000402A260EE 
0C000086660808F8000402A260144A00 
661A61000376610003960838000402A2 
67CC610001C267C6600000820C0000FF 
660808F8000302A260200C00007F6608 
08B8000302A260A60838000502A2669E 
4A006A92610001EC4E756100007C0C00 
007F660808B8000302A260820C000006 
660808B8000402A260E00C0000866608 
08F8000402A260144A006618610002FC 
6100031C0838000402A267BE61000148 
67B860086AB46100019A4E7532006100 
00280C000006660A08B8000402A23001 
4E754A0066E8610002C2610002E26100 
011666D86000FF10610000844A006708 
0C00008067164E75617411C0048A616E 
11C0048B610001D442404E7561600C00 
00DF63180C0000EF63180C0000FB6500 
001867160C0000FD630E601011C001B2 
60B611C00480601660AE604C0C0000FE 
6604703460027035003C00014E7548E7 
60E043F8048145F8048672056100DCD0 
6504534166F64CDF07066000FF7C2F08 
207C00FCDD811028001A0800000167F6 



10280002205F4E75080700116622207C 
00FCC0016144422800046100F06A117C 
008000046100F06010BC00896100F006 
49FA00066000D9FA203C0003D0906100 
DCD270216100DB406100DCC26100F8EE 
45FA0B2970346000E798117C00880002 
10BC00866100EFCE267C00FCDD8108AB 
000400044E7548E77F803C3804963E38 
049841F8053A301867424C98003EBC42 
6D0EBC446E0ABE436D06BE456E02600E 
4A416A046100004C534066DE601E4A41 
6B186100003E534067104A586B045048 
60F44C98003C6100002A30014CDF01FE 
4E7548E77E8041F8053A3C184C98003E 
B2006706534666F4600261064CDF017E 
4E7548E7F8406100012208680007FFF6 
3004904280FC000832059243524193C9 
E64AD2C2785AC6C4D2C30838000702A2 
6706D2FC005A534174FF48E7E0406100 
022E4CDF02070838000602A267066100 
03E8600C0838000702A2670461000424 
610000EC4CDF021F4E7548E77C003038 
0486323804881438048A48821638048B 
488338026C0244443A036C024445D845 
9878048E6E16D0423403D643D643D642 
54436D025643E643D2436010D2433602 
D443D4436D025242E242D0424A406C02 
42400C4002D06F04303C02D04A416C02 
42410C41016C6F04323C016C31C00486 
31C1048831C0049631C104984CDF003E 
4E7531FC0168048631FC00B6048831FC 
0008048E707C6100D98E4E7542780490 
4278049231FC0010049431FC01680496 
31FC00B6049861CA4E7548E7C0C041F8 
04A22278052830380526323C005A6004 
2298D2C151C8FFFA4CDF03034E7548E7 
FCF041F804A22278011045FA090047FA 
08FC3038049032380492383804949078 
0496444034000242000F444206420010 
42834643E5AB0240FFF06C0A4240E18B 
E18B064200100C4002B06F140C4002D0 
66027600303C02B0E08BE08B06420010 
9278049844416C0CD841D24194C196C1 
424160103A3C016C9A44B2456F0C383C 
016C98414A446C02424431C0052231C1 
052431C40526E648D2C07A5AC2C5D3C1 
21C905286016301AE5B8C083321BE5B9 



C283468120D1C391B191D2C551CCFFE8 
4CDF0F3F4E754282612E705A74FF327C 
05A0720161423C7C05FA3A7C7FF8243C 
AAAA555548427201224E6100002CDCC0 
BCCD6DF04E7574FF323C016B705A93C9 
61164E7548E7E040705A7210740093C9 
61064CDF02074E7549FA0020600449FA 
001ED3F801102F0A4283360044830683 
0000005A2449D5C04ED432C26002B559 
B5C9670260F2D3C3D4FC005A534166E8 
245F4E757A597C0C48E7C040704E223C 
000000A4327C1140616C4CDF02034E75 
48E7C04070467254327C114461587A40 
7C0E47FA0CA672FF6100049A610003EA 
610003FA610003EC610003FC4CDF0203 
4E7548E7C04070427214327C071E6126 
4CDF02034E7548E7C040611A2F09D2FC 
05A0720174FF6100FF50225F610001DA 
4CDF02034E7548E7F87848E7C0404282 
6100FF3693C393C0720174FF6100FF38 
5449720155406100FF2E4CDF020348E7 
404072016100FF124CDF041074015544 
5540D3C0220442806130303C00B67407 
22046136303C0110740622045341612A 
224AD3F80110705AD3C0343C80002204 
428061064CDF1E1F4E75338200005341 
67060640005A60F24E7505F100005341 
67060640005A60F24E7548E7402045F8 
053A3412C4FC0005D442525A35802000 
6100F48838006100016ECCFC00083586 
200235852004700A721C614C2F093278 
052C61000152CCFC0008358620063585 
2008225F48E7F870E2886100013ADC80 
E2895981DA81534642406100045E2004 
610004584CDF0E1F4CDF0402224A6100 
0116610003404E7548E7F87074FF7201 
6100FE2693C3222F0004428074076100 
FF5A226F0014D3F80110222F00044280 
74076100FF46D3C02017720174FF6100 
FE0693C393F8011031C9052C4CDF0E1F 
4E7548E7C040D3F80110740742804EBA 
FF1A2017222F0004D3C0534942804282 
4EBAFF084CDF02034E7548E7F080C0FC 
000841F8053A32184282263C000003DE 
5241141C30C2617ECCFC000830C630C5 
DC4030C60645000B30C52F09224A6166 
6100035E225FD3C3D5C3534466D231C1 
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053A4CDF010F4E7548E7FEFE615AE288 
E28A908261405845DC8048E706006100 
03304CDF0060594555460246FFFE9DCE 
6100033C224E266F00286100002C5242 
0242FFFE20025840720F74FF6100FD30 
4CDF7F7F4E752F02240984FC005A3A02 
48423C02241F4E75244B141A66FC95CB 
240A4E757005721F61024E7548E73802 
765A42843400600252441D9A400051CA 
FFF8DDC351C9FFEC52464CDF401C4E75 
610000DA3A7C287E610ADBF801106100 
008C4E752F00224D619C47FA05A8B7CA 
6608064500165646603847FA0552B7CA 
660806450010584660284A3802AF6646 
47FA088CB7CA66080645001258466012 
47FA067CB7CA66065C45564660045B45 
5846610002665341660645FA0480600E 
5341660645FA047B600445FA047A7000 
72046100FF58201F4E756100FC8C7A73 
7C10610002362A4E610000F845FA079A 
610845FA07E261024E7548E7F0062C4D 
5C4E48E70006610000DA4CDF60007654 
741F72023016815D425E51C9FFF8DBC3 
DDC351CAFFEE4CDF600F4E7548E7C020 
6100FC367A737C10610001E0220A6A0C 
0881001F24416100FEDC600461000094 
4CDF04034E756100FC107A737C106100 
01BA2A4E617C45FA06FD2C4DDCFC0006 
61704E7548E7E0007006722074FF6100 
FBAE4CDF00074E7545FA04013C7C1DF6 
601C45FA043A3C7C1E04601245FA03AD 
3C7C1E12600845FA046C3C7C1E20DDF8 
0110612E4E7561D03A7C1DF6601661D2 
3A7C1E04600E61D43A7C1E12600661D6 
3A7C1E2045FA06B2DBF801106100FF1C 
4E7548E7E0A0204E72177405303C0100 
101AE24867146404421E60021CDA51CA 
FFF2DCFC0054740560E851C9FFE02C48 
244ED4FC005A323C001E201EB19A301E 
B15AD4FC0054DCFC005451C9FFEE4CDF 
05074E7548E7A00045FA0887B7CA6770 
244B103801B267680200003F14000202 
00F0675C0C02003066080C00003D6726 
604E0C020020661E0C00002F67420C00 
002E67320C000026672C0C00002D672A 
0C00002767240838000702A266120445 
000A61240645000A611E0645000A6010 



6130612E600A4A1B66FC4A1B66FC244B 
61064CDF00054E7548E7060061422F0B 
4A41670647FA07F76136265F4CDF0060 
4E75612C702F61624E7548E70E003A3C 
007E7C18380561184CDF00704E75CAFC 
000A610C4E7561080645000A7C014E75 
2F000C45014C6F046100F3FE4280101B 
6704612660EC201F4E752C7801102F00 
42803005C0FC005A0640005AD08E2C40 
42803006DDC0201F4E7548E7C02261DA 
0240007F4A0067380C000020672C0C00 
000D67320C00003F67340400002D6D14 
0C00000C6F2E5F000C00000D6D060C00 
00266F2045FA013A602645FA003E6020 
45FA0134601A0645000A3C04602645FA 
011A600C3200E7489041904145FB0022 
428072054216DDFC0000005A6100FC7E 
422E02764CDF44034E75000000000000 
0000007C000000000000003004081020 
40803844444444380838080808083844 
0810207C384418044438081828487C08 
7C40780444383840784444387C081010 
20203844384444383844443C04383048 
84FC8484F884F88484F8788480808478 
F884848484F8FC80F88080FCFC80F880 
80807884809C847C8484FC8484843810 
101010381C08080888708890A0D08884 
8080808080FC84CCB484848484C4A494 
8C84788484848478F88484F880807884 
84849478F88484F88884788460188478 
FE101010101084848484847844442828 
1010828292AA44444428102844828244 
28101010FC08102040FC384408100010 
C7BBF7EFFFEF0877FEFE7F3E1B2D1112 
37383914343536132E32330300000000 
0000000000000000000000002D3D0000 
500800000D3000002F31000039305549 
4A4B5B5D4D4C3B27202C2E4F45363738 
35525459004647485643424E41323334 
31515357005A5844000000008000C000 
E000F000F800FC00FE00FF00F800F800 
CC008C000600060003000300E0606060 
F0E03060C0F0E0306030E0FFFFFF3F03 
FF00FFFFFFE001FFFFFFE4FFC0702FF9 
50669EC00180F70379560674FE0FFFFF 
FFFFFFFFFF3F01AA60AAAFFFC00307C4 



FF00FFFFFFE001FFFFFFC4FFC079F240 
F938E0BFE0EFF07138018079FC03C0FF 
FFFFFFFFFFFF3F01FEC0AAAABFC003FC 
841FE001555540E103FFFFEC 



E0E303FFF0FFFFFF71045E88021C8E50 
038C70C7010C207B0E040C5E8803FFD5 
5700FF8007FF8003FFC0F32AA8FC7FFC 



63EAAD80013CC0061550CF3FF8FFFFFF 
611FFFFFF80F18FFFFF00FFFFF86F011 
FFFF886D05A00218800140014FF2CE80 
A815F3542A3C2A541428CF0810FF3C08 
101428CF2814F3500A1CA00501466286 
800288114061051008A01118E007880F 
FFFF8 6F0 OFFFFFFOEl 1FFFFFF8FFFFFF 
FFFFFFFFFFFFFFFFO 1 FFFFFFFFFF8 3 F 
FFF0FFFFFFFCFFCC037F0180CF037FFC 
0180003FFFFFFFFFFC1CFF60FFF3FF38 
030CFDC0FFFFFFFFFFFFFFFFFFFFFFFF 
FFFFFF2F081FFF08FFFC101FFFFFFC02 
201FFFFFFC47F8201FFFFFFC801FFF08 
FFFC801FFFFFFC8047F81FFFFFFC20E0 

FFFFFFFFFFFFFFEF023803FF0407FF22 
883FFFF811FEE87FFFFC208B207FFFFC 
A011FE3FFFF808E307FF84F803FF02FF 



71FFFFF80A18AAAAA8FAAAAAF6A060E3 
03C007380420060810FFF308103C0420 
03C0FFFFFFFF611FFFFFF80F38FFFFF0 
0180CF0240F304203C08101008CF1C38 
FFFFCF03C0CF01C0FF3F0E38CF0808F3 
04103C02200140DF80F301C03F014020 
1B6DB6DB6016DB086DB6DF3B6DB6DB80 
678006DB6DB6D8FF0F4FFFFFFF00FFF0 
FFFFFFFFFFF8001B6DB6D836C01B6D00 
B6D836C01B6DB6D80036C01B6DB6D836 
C0001B6DB6D836C01B6D00B6D836C01B 
FFFFD80036C01BFFFFD836C000FFFFFF 
FFFFF87FFFF0FFFFFFF0FFFDE0FFF307 
1C3C04040208CF0110F7A03D4001E0FF 
F30 12 7F3F9CFF8 0FFFEFFFF3C7E7CFF 

FFFFCFFFFEE 
F30380FE0CCF0380F7E0BF03EF03FFFE 
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3FFFFFFFFFFFFFFCF0 7 8 F3 0E8 OBEIB 
36EF6C7BD8019EB00360E706C0790D80 
1BDF36F76C3DD801B0CF0360F306C0BC 
0D801BEF36FB6C9ED801B0E7036038F8 
6C0DC0DCE8 03 61BF31B3 63C0DEC0 6D8 
CF0330F301E03C03C002E0CF01B0F7D8 
7D6C36DF1BE70D807906C0039E6001B0 
EFD8FB6CBE361BCF0D80F306C03C0360 
01B0DFD8F76C7D361B9F0D80E706C079 
036001BEB0D8EF6CFB363E1B0E80FFFF 
FFFF1F03FFFF86F807FFFFF4EF0AFB05 
BC028001FF7D7884CF0102FF7C010284 
DF7 8 FFFFFF7 FO 7 1 FFFFFF8 3FFFFFE 
FFFFFFFFFFO FO 3FFFFFF0 FFCO 7 FFFF 
FFFFE0100CFFFFF03001FF70FFF80780 
019EFF01FFCF0780FF3F0780E701FF09 
01FF01FFFFF84007800CFFFFF0300007 



410D36202D204B594244205649410D37 
202D20434F50530D38202D205343430D 
39202D204449534B0D41202D20434C4F 
434B0D42202D204D454D4F52590D4320 
2D20494F20534C4F5453004144445245 
5353203F0044415441203F00434F554E 
54203F0054455354203F005748415420 
3F000000000000000000000000000000 
000000004338344150504C4502483F7B 



;THE END 



### 



FFFF9F5FFFFD861F0AAAA8153F07FF00 
FFFFFFFO 3 FFFFFFFCFFE FFFFFF5 4 F 
574552204359434C494E472041542000 
54494D45204953200044524956452054 
455354004C4F4F5020434F554E542049 
532000504D20425553204552524F5200 
464C4F5050592054455354204641494C 
454400464C4F505059204552524F5220 
434F554E54204953200054455354494E 
47005445535400455320574952442047 
45544553544554005245535441525400 
5245434F4D4D454E434552004E455520 
5354415254454E00434F4E54494E5545 
00434F4E54494E554552005745495445 
524D414348454E005354415254555020 
46524F4D0044454D4152524552204445 
005354415254454E20564F4E002E2E2E 
004F5054494F4E5300444953504C4159 
204D454D2020203100534554204D454D 
4F525920202020320043414C4C205052 
4F4752414D202033004C4F4F50204F4E 
20544553542020340041444A55535420 
564944454F20203500504F5745522043 
59434C45202020360051554954202020 
202020202020203700F4F1F2F3E4E1E2 
31202D20524F4D0D32202D204D4D550D 
33202D20564944454F0D34202D205041 
524954590D35202D2050415241205649 
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